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1 . Abstract- 

The PDP-15 Extended Memory Address Test tests all of core memory 
not occupied by the program to ensure that each location can be 
uniquely addressed. This is done by a series of four tests. The first 
two tests write the address and complement address of each memory 
location into itself, and then check each location to make sure each 
is correct. The third test slides a one through a word of zeroes in 
each memory field. Test four writes and reads a pattern designed to 
detect adjacent bit positions shorted within a memory stack. 

The program relocates automatically from field to field, and tests all 
of core memory from each field. 

2. Requirements 

2.1 Equipment 

A PDP-15 equipped with a minimum of 8K of core memory. 

2.2 Storage 

The program utilizes approximately 3K (decimal) words of its resident 
4K memory field. 

3 . Loading Procedure 

3.1 Method 

The tape supplied is for HRM, and may be loaded into any low order 4K 
field (X0000-X7777) . 

Place the tape in the reader; place the BANK MODE switch on a 1 ; set the 
ADDRESS switches to 017700; press I/O RESET and then READ-IN. 

4. Starting Procedure 


Start from 200 to initialize the program. 

Restart from 221 to retain current operating parameters (amount of core 
to test, etc.) 



4.1 


Program/Operator Action 

After program load or restarting from 200, the operator must indicate 
to the program the amount of core memory to be tested, and any 
special function to execute. The amount of core memory is indicated 
via keyboard . 


The program will first print the message "TEST LIMITS". The operator 
must then specify, following the procedure listed below, the amount 
of core memory to be tested. The program expects the 4K memory 
fields to be numbered octal ly beginning with field 0 (locations 00000 
to 07777) through 7 (locations 70000 to 77777). For a maximum of 
32K of memory the memory addresses for the 4K fields would be: 

Field ^ Memory Addresses (octal) 


0 

1 

2 

3 

4 

5 

6 
7 


00000 to 07777 
10000 to 17777 
20000 to 27777 
30000 to 37777 
40000 to 47777 
50000 to 57777 
60000 to 67777 
70000 to 77777 


Use the following procedure to specify TEST LIMITS. 

a. Type two numbers, separating the numbers with a comma. 

b. Press the carriage return key. 

c. The first number typed signifies the first 4K field to test, and 
the second number the last 4K field to test. 

d. The program will begin testing with the lowest order 4K field 
specified, and will test all consecutive fields up to and 
including the highest specified. 

e. The 4K field containing the program may be included. It will 
be tested after program relocation takes place. Program 
relocation is discussed in section 5.3.1. 

f. If a typing error is made, press the RUBOUT key. "TEST LIMITS" 
will be printed again. Previous input is ignored. 
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g. The highesf 4K field to test may be typed first. The program 
will reverse the two numbers so as to make the first number the 
last to test. 

h. Any single field or any two or more consecutive fields may be 
specified. 

For the following examples assume that the program is in field 0 , and 
the PDP-15 being used is equipped with 32K of core memory. 

Example A: 

TEST LIMITS 

0/ 7 ^ (j denotes carriage return) 

The program will test all 32K of memory. 

Example B: 

TEST LIMITS 

7 . oa 

The program will perform exactly as Example A. 

Example C : 

TEST LIMITS 

3, 3 1 

Only field 3 will be tested. 

Example D : 

TEST LIMITS 

4, 6) 

Fields 4, 5, and 6 will be tested. 

Example E; 

TEST LIMITS 

0 , 0 PROGRAM IS IN FIELD 0 
TEST LIMITS 

0, U 

Example E shows the message printed by the program when a 
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single field is specified which currently contains the program. 
"TEST LIMITS" is printed again, and the operator must then 
correct the test limits. 

: . 1 . 1 SETUP ACS 

After specifying the test limits, the program will print "SETUP ACS". 
For normal program operation the ACS must be set to 000000 octal. 
Press any key (except RUBOUT) on the keyboard after setting the 
ACS to all O's. "RUBOUT" will restart the program with "TEST 
LIMITS" . After terminating with a key, the program will run until 
stopped by the operator. Normal program operation is defined as 
performing all eight cln-ckerboard patterns on all of available memory 
from every 4K field. 



a. Load the program into memory field 0 as described in section 3. 

b. Specify the test limits as described in section 4.1. 

c. The message "SETUP ACS" will be printed. Set the ACS to 
000000, and press any key except RUBOUT. 

d. The program will perform all four tests on all of memory 
specified, then automatically relocate to the highest field 
number under test. 

5. 1 ACS Settings 

Normal operation of the program reqjires the ACS set to 000000. 

Refer to section 8.2, Applications for switch settings provided for 
trouble-shooting . 

5.2 Subroutine Abstracts 

The program executes a series of four tests on core memory. Each 
test writes a unique pattern, and checks each location for error. 

Test 1 writes the value of each memory location into itself, from the 
lowest order to the highest order field under test. The address pattern 
is then read, and checked for error, in the same direction i.e., 
from the lowest to highest field. The pattern is then read and checked 
for error in the reverse direction, i.e., from the highest field to the 
lo//est field. This sequence is repeated twice before test 2 is 
initiated. Test 1 may be run by itself by placing ACS 3 on a 1 . 
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Tests 2 , 3 and 4 write and read their patterns into one field at a 
time. The rest of memory will contain an all Ts pattern. After' 
each pattern is written and read, the rest of memory is checked to 
make sure that its pattern has not changed. After one field has been 
tested the next higher field in sequence will contain the pattern, 
and the rest of memory will equal all I's. This is continued for one 
test until all fields have contained the test pattern. The next test 
in sequence will then be initialized. All of memory is set to I's before 
the next field in sequence is tested. 

Test 2 first writes I's into all of memory, and then writes the 
complement value of each address into itself. The pattern is written 
once in the forward direction in one field. The rest of memory is 
then read and checked for error (in the forward direction ) . The 
field with the address pattern is then read once in the forward and 
reverse directions, after which the rest of memory is again checked. 

The same field with the address pattern is then reset to all I's, and 
the same address pattern is then written in the reverse direction. 

The rest of memory is then checked; the field with the pattern is 
read in forward and reverse directions, and finally the rest of 
memory is again checked. The next higher field in sequence will 
be tested in the same manner. After all fields have been tested in 
this manner, test 3 is initialized. Test 2 may be run alone by 
placing ACS 4 on a 1 . 

Test 3 first writes I's into all of memory, and then writes a sliding 
1 pattern into one field. Each location of the field will contain a 
word of all O's except for one bit position. The bit set is rotated 
one place to the left for each memory location, starting with bit 17. 

The following test sequence is repeated 18 times, resulting in every 
bit in each memory location being set. 

a. Write all I's into all of memory. 

b. Write a sliding one pattern into one field. 

c. Read and test rest of memory. 

d. Read and test the field with the pattern in the forward 
direction only, 

e. Read and test rest of memory. 

f. Repeat steps b through e 17 more times before testing the 
next sequential field in the same manner. 
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After all fields have been tested with a sliding 1, test 4 is initialized. 

Test 3 may be run alone by placing ACS 5 on a 1 . 

Test 4 writes ones into all of memory. A pattern consisting of 
1 word of O's followed by 1 word of Ts is then written into one field. 

The following sequence is then executed. 

a. Write the pattern in one field in the forward direction. 

b. Read the field with the pattern in the forward direction. 

c. Read again rn the reverse direction. 

d. Read rest of memory. 

e. Write the complement pattern in the forward direction, and 
repeat steps b, c, and d, then do step f. 

f. Write the pattern in the reverse direction, and do steps b, c, 
and d, then do step g . 

g. Write the complement pattern in the reverse directio . and do 
steps b, c and d, then setup to repeat a through g on the next 
higher field in sequence. 

After all fields have been tested, the program then relocates 
automatically and starts over with test 1 . Test 4 may be run alone 
by placing ACS 6 on a 1 . 

5.2.1 Program Relocation 

The program relocates itself in order to test addressing from all 
fields to every other field. Relocation depends upon the amount of 
core memory being tested. Relocation is always within the group of 
4K fields selected for testing, and under certain conditions the program 
will not relocate at all, but will remain in the current field to perform 
the tests (see below). The program normally first relocates to the 
highest order 4K field under test. From there it relocates to the next 
lower 4K field, after performing all tests. The program keeps relocating 
to the next lower 4K field until it reaches tie lowest order 4K field 
under test. The testing and relocation cycle is then repeated. As 
an example, suppose the program initially is in field 0, and 32K of 
memory is selected for test. The tests are run from field 0, and then 
the program relocates to field 7, then to fields 6, 5, 4, 3, 2, 1,0 
in that order. The program will not relocate to any field which is not 
included in the test limits. If fields 4, 5 and 6 were selected, relocation 
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would be from 0 to 6, then to 5 and 4. Fields 0 through 3 and field 
7 would not contain the program again until included in the test limits 

The program will not relocate if any of the conditions described below 
exist; 

a. A forced relocation has been made (section 8.2.7). 

b. Only one 4K field is selected for testing. 

c. An error was detected in all of the available 4K fields under 
test. 

d. ACS 9 is on a 1 to inhibit program relocation (section 8.2.5) 

The location of the program is indicated by the message "PROGRAM 
IS IN FIELD X", where X is the field number. This message occurs 
immediately after each program relocation. The message print-out 
may be deleted by placing ACS 1 1 on a 1 at any time. The print-out 
will resume when ACS 11 is placed on a 0. 

The program provides a degree of protection for itself by not 
relocating to any field which has an error. The number of the field 
in error is saved, and is compared to the destination field number 
before relocation takes place. If equal, the next lower field is 
setup as the destination providing it has no error. The first field 
found to be error-free is set up as the destination. Relocation will 
not take place if all fields have shown errors. The program will 
resume relocating to a field whenever the error condition does not 
exist. 

During the relocation process the program tests each data word 
transferred to the new field by performing the transfer, reading ihe 
word back and comparing the word with the correct data in the 
current field. This is done on a one for one basis until the process 
is completed. The entire 4K field is moved to enable loaders or any 
other data to be carried with the program. .If an error is found during 
relocation, the address in error, and the "good" and "bad" data words 
are printed. The error print-out format is described in section 6. 

One pass of the program is defined as all four tests performed on all 
of memory from each 4K field. 
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6 . 


ERRORS 


6. 1 Error Print-outs and Description 


Immediately after the first error is detected, the header shown below 
is printed. 

TEST OCTAL ADR. GOOD BAD FIELD WITH PAT. 

Where: 


TEST = the current test which detected an error. 

OCTAL = the memory location which contains the data 

in error. 

GOOD = what the data should have been in that location. 

BAD = the data as read from that location. 

FIELD WITH PAT. = the current field under test which contains the 
pattern of the failing test. For test 1, this will 
equal "ALL", since test 1 writes an address 
pattern into all memory under test. For test 
2, 3 or 4, it will equal 0, 1,2, 3, 4, 5, 6 or 7, 
depending upon the amount of core memory 
available for test. 


Example: 


TEST 

OCTAL ADR. 

GOOD 

BAD 

FIELD WITH PAT 

1 

060100 

060100 

060000 

ALL 

2 

060100 

777677 

776677 

6 

3 

023000 

000002 : 

000003 

2 

4 

047777 

777777 

000000 

4 

4 

047776 

777777 

000000 

4 

4 

017777 

777777 

000000 

4 


During test 1 address 100 in field 6 was found to be in error. From 
the example, it can be seen that bit 1 1 was dropped. Bit 8 was 
dropped during test 2 in the same address. Bit 17 was picked up at 
location 3000 in field 2 during the sliding 1 test. Three consecutive 
addresses in field 4 were in error during test 4. The test was reading 
in the reverse direction at the time, because the addresses are printed 
in descending order. Also, when checking rest of memory, location 
07777 in field 1 was found to be incorrect. 

After each print-out the program continues with the next memory 
location to test. 

Three AC switches may be used to control the error print-outs. 

Placing ACS 0 on a 1 during the print-out will cause a program halt 
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after completion of printing. ACS 1 on a 1 will inhibit the print-out 
and cause a program halt. Press CONTINUE to receive the error 
print-out and to continue testing, ACS 2 on a 1 will inhibit print-out 
and ring the TTY BELL for each error. The use of these switches is 
described in section 8.2 in more detail. 

6.1.1 PROGRAM RELOCATION ERROR 

This message will be printed upon detection of a relocation error. 

The error information will immediately follow as in the example 
below. After all errors have been printed the message "NO MORE 
ERRORS" is printed, and the program will then set up to relocate to 
the next lower field if one is available. 

Example: 

TEST OCTAL ADR. GOOD BAD FIELD WITH PAT. 

PROGRAM RELOCATION ERROR 

031000 740100 740000 

031001 611005 601005 

031002 760207 760007 

NO MORE ERRORS 

The above example shows those consecutive errors during program 
relocation to field 3. Field 2 would be set up for relocation. 

Location 1000 in field 3 should have contained a SMA instruction, 
but bit 11 was dropped during the transfer. Bit 5 was dropped in the 
JMP instruction in 1001, and bit 10 dropped in the LAW instruction 
in 1002. 

PRINT-O Ui S INHIBITED 

The above message Is printed whenever 64 (decimal) consecutive 
print-outs have occurred. Error print-outs will be inhibited until 
after all fojr tests have been run eight times, after which the error 
print-outs will resume for 64 more print-outs. This feature is not 
used with program relocation errors. 

This feature is included to prevent lengthy error print-outs when the 
program is being run for an extended period of time unattended. 

Error print-outs may be resumed by restarting the program from 
location 200. 
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6.1.3 PROGRAM IS IN FIELD X 

Where "X" is a field number. This message is printed if one of the 
following conditions exist; 

a. The operator has specified a single field for testing and that 
field contains the program. Select another field, refer to 
section 4.1. 

b. The operator has requested to relocate the program to a 4K 
field which currently contains the program. See section 
8.2.7 for instruction to force the program to another field. 

c. After every program relocation. 

6.1.4 ERROR IN SELECTED FIELD 

This message is printed when a forced program relocation is attempted 
and the program has previously detected a data error in that field. 
Type a new field number, or press carriage return to resume automatic 
program relocation. See section 8.2.7 for instructions to force the 
program to another field. 

7. Restrictions 

7.1 Starting Restrictions 

Start from 200 to set up the test limits and ACS and to reinitialize 
the program. 

Start from 221 to retain the present program conditions. 

7.2 Operating Restrictions 

Don't use the STOP key to halt the program. Place ACS 0 on a 1 . 

8.2 Applications 

To give the operator control of the program, the ACS were assigned 
unique functions. The ACS assignments and their effect on the 
program are described below. Please note that it is important that 
the program be halted with ACS 0 rather than the STOP key. Using 
the STOP key may result in a halt while the program is in the process 
of relocating, which is disastrous. Any ACS listed may be raised or 
lowered while the program is running. The operation may not be 


- 10 - 



initiated immediately since most of the ACS are sensed only after all 
tests have been performed. 

8.2.1 Halt after Test or Error Print-out - ACS 0 

Placing ACS 0 on a 1 at any time while the program is running will 
cause a halt after the current test is completed on one 4K field. The • 
MO will = 1366. The ACS may then be changed if desired. Press 
CONTINUE to recover. If no ACS changes the program will resume 
the test which was interrupted. If ACS changes were made the new 
setting are stored and executed. 

Raising ACS 0 during an error print-out will cause a halt at the same 
location mentioned above, after the print-out. 

8.2.2 Delete Error Print-out and Halt on Error - ACS 1 

ACS 1 on a 1 at any time causes all data error print-outs to be 
inhibited. A halt will occur with the MO = 1366 if an error occurs. 
Press CONTINUE to receive the error print-out and to resume testing. 
ACS changes may be made. 

8.2.3 Bell on Error - ACS 2 

ACS 2 on a 1 causes the program to ring the TTY BELL whenever an 
error occurs. This is convenient when testing with power supply 
margins. ACS 1 has no effect if ACS 2 and 1 should both happen 
to be on a 1 . If ACS 0 and 2 are 1, a halt occurs after the bell. 
Proceed as described in 8.2.1. 

8.2.4 Test Selection - ACS 3 through 6 

Any one, or any combination of tests may be executed by placing 
combination of ACS 3 through 6 on a 1 . ACS 3 specifies test 1 ; ACS 4, 
test 2; ACS 5, test 3; ACS 6, test 4. The test specified by the most 
significant ACS will be performed first. 

If all four ACS are 0, all four tests are performed in sequence. 

The ACS may be changed while the program is running. The new 
tests will be recognized after the last of the current selection is 
performed. 

8.2.5 Inhibit Program Relocation - ACS 9 

The program normally relocates automatically as indicated by the 
print-outs. o retain the program in its current 4K 
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field place ACS 9 on a 1 at any time. Placing it on a 0 enables 
relocation to resume. 

8.2.6 Inhibit "PROGRAM IS IN FIELD" - ACS 11 


The program normally prints the field number containing the program 
immediately after each relocation. The message may be suppressed 
by placing ACS 11 on a 1 at any time. To resume the print-out' 
place ACS 11 on a 0. This switch does not inhibit the message print- 
out when an operator error is made. 

8.2.7 Program Relocation - ACS 12 


The operator may relocate the program to any 4K field by speci Tying 
a forced relocation with ACS 12 on a 1. Use the following procedure: 

a. Halt the program with ACS 0. 

b. Place ACS 12 on a 1 and ACS 0 on a 0. Press CONTINUE. 

c. A print-out will occur which instructs the operator to place 
ACS 12 on a 0. The program will loop until this is oone. 

d. With ACS 12 on a 0 the message GO TO FIELD is printed 
followed by the program waiting for a field number. 

e. Type the desired field number (0 through 7). 

f. Relocation is done immediately, and the program is executed 
in the new field. 

The program will not relocate again until restarted from 200 or 221, 
or in step d above, press carriage return to resume automatic relocation. 

If a data error was previously detected in the new 4K field, the 
message "ERROR IN SELECTED FIELD" is printed, followed by step 
d repeated. Type another field number, or carriage return to resume 
normal operation. 

Each word transferred to the new field is tested in the same manner 
as described in section 5.3.1, Program Relocation. Print-outs occur 
for each relocation error. Step d will be repeated after all error 
reporting is done. Type another field nunb er, or carriage return to 
resume normal operation. 
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At times the program will automatically restart at 200 and print TEST 
LIMITS. This willoccur whenever a single field has been selected 
for testing, and the operator relocates the program to that field. 

New test limits must be specified since the program cannot run the 
tests on its own 4K field. Proceed as described in section 4.3. 

8.2.8 Request Keyboard Input - ACS 13 


ACS 13, when up, indicates to the program that the operator wishes 
to select one test, along with one or more addresses to be suppressed, 
and that one or more addresses are to be tested, disregarding all other 
addresses. ACS 13 is recognized immediately after restarting from 
200,221 or after pressing CONTINUE after a halt with ACS 0. 

The program will print the following information waiting for input 
from the keyboard after each line: 

TEST ^ - 
SUPPRESS - 
BLOCK ^ 1 - 
BLOCK ^ 2 - 

The program expects input information for each line. Typing only 
a carriage return indicates that the function represented by that line 
is not wanted. The next line will be printed. An explanation of 
each line follows. 

TEST ^ - Type the test number desired (1 to 4). Any number less 
than 1 or greater than 4 is an error, and a ? will be printed, followed 
by TEST ^ - being printed again. If no particular test is wanted, type 
a carriage return only. The pattern used by the last test in progress 
will be used, in the case of no tests being previously run, test 1 will 
be used. TEST ^ Is ignored. 

SUPPRESS - Error print-outs for one or more individual addresses, 
or a block of consecutive addresses may be suppressed. The addresses 
typed must be 5 digit octal numbers. Up to 256 (decimal) addresses, 
individual or a block, may be suppressed. Any amount over 256 
(decimal) is not an error, but will b e ignored by the program. 

Suppress on of individual addresses is indicated by separating each 
5 digit address with a colon, terminating the line with a carriage 
return after the last address or colon. A block is indicated by 
typing the first address of the block, and the last address of the 
block, seoarating the two by a comma. An automatic carriage 
return is provided after the second address is typed. The individual 
or block of addresses do not have to be typed in numerical order. 
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Any input which differs from the above will result in a ? being 
printed, followed by SUPPRESS - being printed again. Typing a 
carriage return only indicates no addresses are to be suppressed. 

BLOCK ^1 and BLOCK ^ 2 - Any length block of consecutive 
addresses to be tested may be indicated in either BLOCK ^ 1 or 
BLOCK #2, or both. The block limits must not overlap the program 
or exceed the amount of memory available. If the limits of either 
block overlap the program a message will be printed giving the 
location of the program. The current line will be re-printed, and 
the operator must then specify new limits. Indicate the block to be 
tested by typing the first address and last address of the block, 
separating the two 5 digit addresses with a comma. 

The program handles the blocks to be tested as if each were a 
separate memory field. That is, if test 1 were selected, each 
address within either block would contain its own value. If any 
other test were selected, BLOCK 1 would contain the pattern, and 
BLOCK 2 would contain on all Ts pattern . The rest of memory 
outside of the block limits is ignored. Refer to section 5.2, 
Subroutine Abstracts, for a description of methods of testing, and 
patterns generated by each test. 

When two blocks are selected, their limits should not overlap when 
tests 2, 3 or 4 are selected. BLOCK 2 will always contain an all 
I's pattern with these tests, and error print-outs will occur if both 
block limits overlap. 

If only one blockis selected, the pattern will be written in that 
block, and the rest of memory is ignored. A single block may be 
indicated after BLOCK ^ or BLOCK 2; one of the lines being left 
blank. 

If no blocks are to be tested type a carriage return after BLOCK ^ 1 
and BLOCK ^ 2. The program will start over with test 1, or the test 
selected in ACS 3-6. 

If a block is selected, program relocation will not take place. 

Press the RUBOUT key if a typing error is made. The routine will 
start over with "TEST" ^ -. 

If the pattern generated by test 4 is to be used, the operator may 
select one address, or a block which has an even total of addresses, 
i.e., 2, 4, 6, 10, etc. This is necessary due to the method of 
generating and reading the pattern. A guide would be to always 
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make the first address even (XXXO), and the last address of the block 
odd (XXX7). If an odd total is requested, invalid error print-outs will 
occur indicating an error at each location. This restriction applies to 
BLOCK ^ 1 when two blocks are selected, or to a single block. 

Examples: 

Assume the program to be located in field 0. 

A. TEST <^-4 
SUPPRESS - 

BLOCK 1 - 10100, 10101 
BLOCK ^ 2 - 

The pattern generated by test 4 will be written and checked for error 
from 100 to 101 of field 1. The rest of memory (including fieldl) 
will contain an all I's pattern, and will be Ignored by the program 
since only one block is selected. 

B. TEST^ -4 
SUPPRESS - 

BLOCK '^l - 10101, 10100 
BLOCK ^2 - 

The program will perform exactly as described in example A. 

C. TEST ^ -3 
SUPPRESS - 

BLOCK ^1 - 37777, 36000 
BLOCK ^2 - 10000, 16000 

The pattern generated by test 3 will be written and checked for error 
in the first block from 36000 to 37777. An all I's pattern will be 
written and checked for error in the second block from 10000 to 16000. 

D. TEST^ - 

SUPPRESS - 37777:36100:35000 
BLOCK ^1 - 10000, 16000 
BLOCK *2 - 36000, 37777 

The pattern used by the last test in progress will be written in 
BLOCK 1, and an all I's pattern in BLOCK 2 (note that the blocks 
are reversed from Example C) . Any error at the two addresses 
36100 or 37777 will not be rpinted. Address 35000 is meaningless 
since it is located outside the test limits. 
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F. TEST ^ - 8 

? 

TEST ^ -1 

SUPPRESS - 036000 

? 

SUPPRESS - 36000, 37777 

BLOCK -40100, 40100 

BLOCK ^2 - 00000, 16000 

BLOCK ^2 - LIMITS OVERLAP PROGRAM 

(PROGRAM IS LOCATED IN FIELD 0) 

BLOCK #2 - 30000, 30100 

Example F indicates program response to format errors. The first, 
TEST is self -explanatory, since there are on ly 4 tests to choose 
from. The second, SUPPRESS, was in error because the number 
exceeds 5 digits. The program is assumed to be in field 0 for these 
examples, and the first address selected for BLOCK 2 is within this 
area. The example shows the error message printed for BLOCK 2, 
followed by the operator's correction. 

G. TEST ^ - 2 

SUPPRESS - 10000, 10377 
BLOCK h - 
BLOCK ^2 - 

The program will not loop on test 2, but will restart with test 1, or 
the test specified in ACS 3-6. TEST ^ is used only when one or more 
blocks are specified. All of memory specified will be tested. 

Any errors detected within the block indicated after SUPPRESS will 
not be printed, regardless of which test is running. 

To return to normal program operation type a carriage return after 
each of the four lines, or restart the program from 200. 

9. Program Description 


The Extended Memory Address test is intended for use with PDP-15s 
equipped with 8K or more or core memory. A total of four tests are 
executed by the program. Each test writes a unique pattern into 
core memory and then checks for error. The first test writes the 
value of each memory address into that address, with all available 
banks containing the pattern. The remaining four tests write their 
patterns into one 4K field at a time, with rest of memory containing 
an "all ones" pattern. The patterns were chosen so as to detect word 
and bit errors, as well as shorted wires within any bank (see sect. 5.2). 


- 16 - 



10 . 


Control of the program is given to the operator by means of the ACS. 
The operator may halt the program inhibit error print-outs, substitute 
the TTY BELL for error indication, halt after print-out, select any 
one or group of tests, inhibit program relocation, specify any single 
address or group of addresses to be suppressed, any single address or 
up to two blocks of addresses for testing, relocate the program to any 
4K area, and vary the number of 4K fields to test. See section 8.2 
for the ACS designations for the above functions. 

The program automatically relocates after performing all specified 
tests on the amount of core memory selected. 

Listing 
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/ 



PAGE ^ 


X A I ' 1 ^ 


.TITLE XAD15 
. A-.S 


7, '1 1 

- X X. / 1 

^ i-i 0 0 1 


. L^iC 

1 


X ^ X! .'I L 

200002 


2 



;7 X* X X ^ 

■'00 00 3 


3 



X 0 X L 4 

777777 


L A 

-1 


'/ 0 0 X ^ 

777777 

/ 

L A ^ 

-1 


0 0 ? 0 X 


/ 

.LC'C 2^0 



0 0 P i! v' 

707762 

/ 

REGIN 

ERA 


/ENTER PDP-15 MODE 

0 0 ? 0 1 

144270 


nzfM 

ELaGS 

/clear program ELaGS 

0 0 ? 0 ? 

101360 


jms 

Where 

/SEE where program IS 

0 0 ? 0 

044271 


DAC 

inseld 

/SAVE EIELD NyMBER 

!0 0 ? 0 4 

1 0?‘355 


JMS 

SLMTS 

/SETUP address LIMITS 

0 0 ? 0 S 

-I '^3662 


JMS 

setac 

/SETUP ACS 

0 0 ? 0 ^ 

204012 


LAC 

stbl 


0 0 ? 0 7 

044013 


OAC 

SuPTBL 

/pointer for SUPPRESS table 

0 0 ? 1 

760000 


LAW 



00?11 

044320 


DAC 

8L0C1 


00?1? 

044322 


DAC 

eL0C3 


0021? 

064013 


DAC* 

SUPTBL 

/LAW s NONE SUPPRESSED 

00214 

777700 


LAW 

-100 

/-64 decimal 

0021'=' 

044324 


DAC 

MaXERR 

/COUNTS 64 ERRORS 

0 0 216 

777770 


LAW 

-10 


'■^0217 

044266 


DAC 

SIXT4 


00220 

1 44267 



NOPRNT 


00221 

202335 

RTNl 

LAS 

STLOOP-1 


00222 

042320 


DAC 

LOCAT + 4 


0022? 

707762 


ERA 



00224 

102314 


JMS 

LOCAT 


0022^3 

143746 


D2M 

PHDR 


0 0 p 2 6 

204301 


LAC 

LASTi 

/LAST EIELD TO TEST 

00227 

544300 


SAD 

EIRSTl 

/FIRST field to TEST 

00230 

741000 


SKP 


/the two are EQUaL 

00231 

600234 


JMP 

. +3 





.EJECT 





X ^r ^ - 






X) 9 j y 

- 4 4 2 7 1 


S 

! NSFLD 

/DO THE'- EQUAL CURRENT FIELD 

.• 'J ? 3 .< 

0 201 


J'"' 

‘ EG I N + 1 

/sr^up NEW aooress limits 

■ ■ ' : ‘ 3 

;; -a 143 


L i' 

F 7 T B L 


. J9 3>- 

: - S25 


n Ai' 

ERWRD 

/ERROR TABLE POINTER 

y' i/I ? ^ r 

'7 ■ ''70 


L Aa 

-10 


>/• ix ? 3 7 

■ 4 4 3 4 1 


n A C 

WRCNT 


/ J ? 4 f 

7 h ,^000 


L A w 



/' J ? 4 1 

'64325 


n AO 

erwrd 

/LAW = NO ERROR IN TABLE 

■ y1 ? 4 ? 

444341 


I S0 

WRCNT 

/FILL TABLE WITH LAW'S 

.' A? A 3 

A 0 0 P 4 0 


JMH 

. -3 


/■> ,/ p 4 4 

744336 


0 AC 

LAST 

/equals last field In error 

7 /’ 9 4 

101360 


JMS 

WHERE 

/SEE WHERE program IS 

/ /I ? 4 , . 

744271 


nAC 

INSELD 

/SAVE FIELD NUMBER 

7 A? A 7 

904043 


LAC 

ERTBL 


7 0 ? 5 C’i 

744325 


0 AC 

ERWRD 

/RESTORE TABLE POINTER 

'70251 

750004 

/ 

STOVER 

LAS 


/READ AC SWITCHES 

00252 

504406 


ano 

K177 


00253 

044272 


DAC 

MCWA 

/SAVE 

0 0 2 5 4 

^^04353 


AMO 

K40 


00255 

744200 


SEA :CLL 


/BIT 12 A 1 = FORCE RELOCATE 

00256 

603273 


JMP 

FCDMV 

/RELOCATE 

00257 

750004 


LAS 



00260 

504352 


ANH 

K20 


0 0 261 

740200 


S?A 


/BIT 13 A 1 = KEYBOARD INPUT 

0 0 2 6? 

601623 


JMP 

KYBRD 


lyt 0 9 6 3 

204272 


LAC 

MCWA 


/' 0 2 6 4 

504404 


ANO 

K74K 


/.' 0 2 6 5 

741200 


SNA 


/DO ALL tests IF 0 

{-' 0 2 6 6 

600321 


JMP 

nOALL 



/ 


.EJECT 



P A r- F 1. ^ 

/ 

/F/A“"1NE test SwITMES 3 TO 


^ / ? P 7 

7-4/72 


L A C 

MCWA 

7 / P 7 V' 

K ,/ 4 4 / 2 


AN^'i 

K40K 

.'/?71 

740200 


SZ4 


i '^?7v 

6 0 3 ? 4 


JMP 

TSTl 

v'* / 2 7 3 

P 0 4 4 0 1 

EXAM2 

LAP 

K20K 

/ 0 ? 7 4 

504272 


A NO 

MCWA 

00275 

740200 


S^A 


0 0 2 7 6 

^00453 


JMP 

TST2 

00P7 7 

204400 

FXAM3 

LAP 

K 10 K 

0 0 3 1 ?) 0 

-04P72 


A N f' 

MCWA 

0 0 3 01 

7 4 ' 2 0 0 


SZA 


00 3 0 0 

600700 


JMP 

TST3 

0 0 3 0 3 

P04376 

EX AM 4 

L AC 

K 4 K 

0 0 30 4 

504272 


and 

MCWA 

00305 

74^^200 


SZa 


C’ 0 3 0 6 

^01035 


JMP 

TST4 

00307 

444266 


I sz 

SIXT 4 

0 0 31 0 

600314 


JMP 

. +4 

00311 

144267 


DZM 

NOPRNT 

0031? 

777770 


LAW 

-10 

00313 

044266 


OAC 

SIXT4 

00314 

750004 


LAS 


0 0 31'=' 

504375 


AND 

K400 

00316 

740200 


SZa 


00317 

600221 


JMP 

RTNi 

0 0 3 2 

603111 


JMP 

CMOVE 



/SETUP 

TO RUN all 

tests 

00321 

204272 

/ 

DOALL 

LAC 

MCWA 

0032? 

244404 


XOR 

K74K 

003 2 3 

044272 


OAC 

MCWA 


/ 

.EJECT 


7 


/BIT 3 A 1 = TEST 1 

/BIT 4 A 1 = TEST 2 

/BIT 5 A 1 = test 3 

/BIT 6 A 1 = TEST 4 

/64 Passes when skip 
/CLEAR inhibit print FLAG 
/RESTORE COUNTER 

/BIT 9 A 1 = DON'T MOVE 
/stay in CURRENT FIELD 

/DONE ALL tests. SETUP FOR RELOCATION 


/set all test bits 

/SAVE 



r. F X A [■' - 

/TFST 1. FAC'H Lf^CATIOX WRl CONTAIN ITS 

/OWN Value, all of mefo^^y specified will contain 

/TPE PATTEPAi. 


/ 


• s ,■) 

' / ^ '70 

TSTl 

J^.S 

WRTIS 

/write I’S INTO all of MEMORY 

V- 

7 6 ? ? 6 1 


L Ai-. 

261 


. ■ /' S P F 

.,44345 


DAT 

tnum 

/TEST number 

F / ,0 ? 7 

: .A ? 7 3 3 


JMS 

SETl 

/SETUP FOR FIRST FIELD 

. ^ 

^.1276 


JMS 

CBANK 

/SEE IF IT HAS PROGRAM 

' ' ^ 3 ' 

741000 


SKP 


/NO 

’■ " 7 ^ ' 

600360 


JMP 

READl 

/READ ANT TEST ALL 

. 0 .7 :s 7 

•’77 776 

WBLKl 

LAW 

-2 


'' 0 3 -5 ^ 

4 4 3 4 2 


OAC 

RPETE 

/DELAY COUNTER 

/ 0 3 3 

777775 


L A w 

-3 


(1 D 3 3 A 

4 4.541 


dac 

WRCNT 

/COUNTS 3 times for EACH ADDRESS 

0 0 3 3 7 

7 0 4 ? 7 5 

WLOPl 

LAC 

memadr 


003 4L 

54275 


D AC» 

memadr 

/WRITE C(MEMAOR) into SAME 

00341 

444342 


IS? 

RPFTF 


0 0 3 4? 

^ 7 3 41 


JMP 

.-1 

/DELAY 9 US 

00347 

777776 


LAW 

-2 


0 03 4 4 

4 4 3 4 2 


OAC 

RPETE 


0 0 3 4 S 

444341 


IS? 

WRCNT 


0 0 3 4^ 

600337 


JMP 

WLOPl 

/TOTAL 22.5 US BETWEEN WRITES 

0 0 3 4 7 

444275 


IS? 

memadr 

/ADDRESS + 1 

0 0350 

4 4 4 ? 7 7 


IS? 

CT4K 

/4K when SKIP 

0 0 351 

600335 


JMP 

WLOPl-2 

/WRITE IN NEXT 

0 0 3 5? 

760000 


LAW 



00353 

‘-44320 


SAD 

rloci 

/NO Block ie = law 

00354 

741000 


SKP 



0 0 3 55 

6 0 ? 4 4 0 


JMP 

blkai 

/SETUP for block 2 

0 0 3 5 6 

1 01344 


JMS 

NxtBNK 

/SETUP for NEXT FIELD 

0 0 3 5 7 

600330 


JMP 

W 8 LK 1-3 

/SEE IF IT HAS PROGRAM 


.EJECT 
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X A I i 1 S 


/ 

/READ ANn '^OP ERROR. READ FROM LO FIELD 

/TO ►-IJ FIEL^', A\n Then DECREMENT FROM HI TO LO. 
/repeat T>^^ -eOUc-ncE TWICE BEFORE FINISHING. 

/ 



777776 

READl 

LA/. 

-2 


003 61 

044343 


n AC 

LOOPT 


il 0 3 6 0 

1 0?733 


Jf’S 

SETl 

/SETUP FOR 1ST FIELD 

0 03 6 3 

744002 


STL 



0036A 

101 276 


JMS 

CBANK 

/SEE IF IT HAS program 

00 3 66 

741000 


SKP 


/NO 

0 0 3 6 6 

606420 


JM- 

RBAKl 

/READ backwards 

0 0 3 0 7 

777766 

RLOPi 

LAW 

-12 


0 0 3 7 0 

/ 4 4 3 4 2 


n A C 

rpete 

/LOOP 10 times on each Read 

0 0 3 71 

204275 


LAP 

memadr 


0037? 

044274 


OAC 

patr 


0 0 3 7 3 

024275 


L AC» 

memadr 

/READ 

00374 

644275 


SAP 

memadr 

/compare 

00375 

600400 



.+3 

/OK 

00376 

1 01 377 


jmS 

ERROR 

/print error 

0 0 3 7 7 

600402 


JMP 

. +3 


00400 

444342 


ISt 

RPETE 


00401 

600374 



RLOPl+5 

/LOOP 10 TIMES 

0040? 

444275 


I sz 

memadr 

/ADDRESS + 1 

00403 

444277 


IS? 

CT4K 

/4K when SKIP 

00404 

600367 


JMP 

RLOPI 

/READ NEXT 

00406 

760000 


L A w 



00406 

644320 


SAC 

BLOCl 

/o Blocks if = law 

00407 

741000 


SKP 



00410 

602454 


JMP 

RLKBl 

/SETUP FOR BLOCK 2 

00411 

744002 


STL 



0041? 

101344 


JMS 

nxtbnk 

/SETUP FOR NEXT FIELD 

00413 

600364 


JMP 

RLOPl-3 

/SEE IF IT HAS PROGRAM 

0 0 4 1 4 

600420 


JMP 

RBAKl 

/READ FROM Hi TO LO FIELD 


/ 

.EJECT 



^ A G E i 


1 


X A I 


' ■;'! 4 1 • 

, A ^.13 

/ 

LOOPl 

I . ^ 

L OOPT 

/DONE IF 0 

■ ' 4 1 f 

.. ■ sA? 


} 0 u 

A E A (j 1 + 2 

/RFAO forward once MORE 

■ 4 

^ ■-■73 

/ 

/READ 

/ 

PBAKl 

jv-A 

P X A M 2 

/CHECK FOR TEST 2. 



TEPT 1 FRO-''- 

HI FIELD TO LO FIELD 



" ' 7722 

JMS ; 

setbak 

/setup for last field 

■ lA 4 ? 1 

■ ‘7 742 


JMG 

CKraK 

/SEE IF IT HAS program 

/ 4 4 2 2 

7 4 1 (^00 


SKP 


/NO 

' J42G 

A 3 0 4 1 5 


JMP 

LOOPl 

/all done 

4 ?1 4 2 4 

777766 

PAKl 

LAW 

-12 


' 0 4 2- 

'44342 


oag 

RPFTE 


h 

'.'4 275 


LAC 

mEMADR 


P 0 4 2 7 

. 44274 


DAG 

PATH 


0 0 4 / 

:74275 


LAC* 

mEHADR 

/READ ONE 

■/ 0 4 3 1 

- 4 4 2 7 5 


SAD 

MEMADR 

/COMPARE 

2 0 4 3 

- 2 7, 4 3 5 


JMP 

. +3 


0 0 4 3 3 

101377 


JMS 

ERROR 

/PRINT ERROR 

00434 

‘'00437 


JMP 

. +3 


0 0 4 3 

444342 


IS7 

RPETE 


00434 

A 0 0 4 3 0 


JMP 

BAKl+4 


0 0 4 3 7 

777777 


LAW 

-1 


(’04 40 

■'44275 


TAD 

MEMADR 

/ADDRESS - 1 

0 0 4 4 1 

44275 


OAC 

MEMADR 


0 0 4 4 2 

444777 


IS? 

CT4K 

/4K when skip 

0 0 4 4 3 

6 0 .7 4 2 4 


JMP 

RAKl 

/READ NEXT 

0 0 4 4 4 

7 A 0 0 0 0 


LAW 



0 0 4 4 S 

^44320 


SAP 

RLOCl 

/NO BLOCKS IF = LAW 

0 0 4 4 6 

"41000 


SKP 



0 0 4 4 7 

602471 


JMP 

RLKCl 

/SETUP FOR block 2 

00450 

102765 


JMS 

nxpak 

/SFTUP FOR NEXT FIELD 

00451 

600421 


JMP 

RBAKl+i 

/SEE IF IT HAS PROGRAM 

0045? 

600415 


JMP 

LOOPl 

/READ forward AGAIN 


.EJECT 



PATE XATl" 

/ 

/TFST2. WRITF CO^PLE^^EMT ADDRESSES INTO ONE 
/FIELD and 77777'J aLL OTheR FIELDS. WRITE IN 
/both DIRECT!0^■S (LO TO mj ANq Hi TO LO ) ANq RrAo 
/IN both DUECTIONs. rest OF MEHOrY IS CHECKED 

/after eacp •-.kite and read. 


/ 


0 0 B 3 

1 0 3 370 

TST2 

J'-'F 

W R T 1 S 

/write I'S INTD all OF MEMORY 

1/ 0 4 5 

109733 


JNS 

SETl 

/setup for first field 

0 0 4 5 5 

744000 


CLL 



0 0 4 5 / 

^ 01 276 

L0P2 

JMS 

CRANK 

/SEE IF IT HAS PROGRAM 

00457 

7 4 1 0 0 0 


SKP 


/NO 

0 0 4 6 !’ 

^ 0 0 501 


JMP 

CKB2 

/all DONE 

0 0 4 61 

777776 


L AW 

-2 


0 0 4 6 2 

044342 


DAC 

RPETE 

/delay counter 

0 0 4 6 3 

777775 


LAW 

-3 


00464 

744341 


DAC 

WRCNT 


00465 

204275 

WLOP 2 

LAC 

memadr 

/address 

0 0 4 66 

740001 


CMA 


/COMPLEMENT 

00467 

064275 


DAC» 

memaor 

/ite intosame 

0 04 7 0 

444342 


IS? 

RPETE 

/DELAY 4.5 US 

00471 

600470 


JMP 

. -1 


00472 

977776 


LAW 

-2 


00473 

044342 


DAC 

RPETE 


00474 

444341 


IS? 

WRCNT 

/39 US total between WRITES 

0 0 4 7 5 

600465 


JMP 

WL0P2 


0 04 7 6 

444275 


IS? 

memaor 

/ADDRESS ♦ 1 

00477 

444277 


IS? 

CT4K 

/4K when 0 

00500 

600463 


JMP 

WLOP2-2 


00501 

760000 

CKB2 

LAW 



00502 

4 4 320 


SAD 

BLOCl 

/NO BLOCK IF = LAW 

00503 

741000 


SKP 



00504 

602511 


JMP 

BLKA2 

/SETUP FOR block 2 

00505 

100511 


JMS 

RST2 

/READ REST OF MEMORY 

00506 

100562 


JMS 

RFWD2 

/READ tested FIELD LO TO HI 

00507 

1 00511 


JMS 

RST2 

/READ REST OF MEMORY AGAIN 

00510 

600637 


JMP 

TST2a 

/write hi to LO IN TESTED FIELD 




.EJECT 





/ 

/SETUP TO PEAJ PEST OF MEMORY, READ 

/the field ‘'■ITh THE ADDRESS PATTERN. 


/ 



: ' V0 

RST2 

0 


■/ i/l S 1 ? 

7 6 / 6 2 


L A W 

262 

/ 5 1 ^ 

44545 


DAP 

TNUM 

/. / S 1 4 

2/4301 


LAP 

LASTl 

/ 0 S 1 

- 4 4 3 0 0 


Sad 

F I RSTl 


" 20511 

H TN2 

JMP* 

RST2 

0 0 517 

>04300 


LAC 

FIRSTl 

;'05 2/ 

'•'4 4 275 

PST2A 

dac 

MEMaOR 

L 0 H 2 1 

770000 


LAW 

-10000 

005?? 

■44277 


Dac 

CT4K 

H 0 5 ? 7 

204003 


LAC 

KRTN2 

P05P4 

(•44307 


DAC 

EXIT 

00 5 25 

204275 


LAC 

MEMADR 

00526 

544340 


SAD 

PATBNK 

00527 

600532 


JMP 

. +3 

00530 

t '00537 


JMS 

REST2 

/0531 

^0-525 


JMP 

. -4 

00532 

I' 4 4 3 01 


SAD 

lasti 

00533 

/■'20511 


JMP* 

RST2 

00534 

204340 


LAC 

PATBNK 

0053*^ 

344400 


TAD 

K10K 

0 05 3 6 

6 0 f ’' 5 2 0 


JMP 

RST2A 


/ 

.EJECT 


AMD test 


/TEST number 

/ONLY 1 Selected if equal 

/NONE TO READ 
/FIRST TO TEST 

/-4K 

/KRTN2 = LOCATION RTN2 


/DOES FIELD HAVE PATTERN 
/YES 

/NO. CHECK IT FOR 777777 
/SETUP FOR NEXT 
/IS IT THE LAST 
/YES. NO MORE TO TEST 

/ADD 4K TO ADDRESS 



PAGE 1 


> A 


/ 

/READ ALL OF MEMORY EXCEPT FIELD WITH ADDRESS PATTERN. 


/ 0 5 3 7 

' '--0 0 

T E S T 2 

0 




1 71 323 


JM S 

CBNK 

/SEE IE FIELD HAS PROGRAM 

i? 0 e; 4 1 

777777 


LAW 

-1 


0 0 5 4? 

.'44274 


DAT 

patr 

/compare constant 

0 0 5 4 3 

224275 

ALLl 

LAC» 

mEMADR 

/READ 

0 05 4 4 

44 274 


SAP 

patr 

/DOES IT = 777777 

0 0 5 4 5 

741300 


SKP 


/OK 

0 0 5 4 6 

101377 


JMS 

error 

/PRINT error 

00547 

4 4 2 7 5 


IS? 

MEMADR 

/ADDRESS + 1 

0 0 550 

444277 


IS? 

CT4K 

/4K if 0 

0 0 551 

6 0 0 5 4 3 


JMP 

ALLl 


0055? 

760000 


LAW 



00553 

544320 


S A 0 

RLOCI 

/NO Blocks if = law 

0 0 5 5 4 

741000 


SKP 



00555 

624307 


JMP# 

EXIT 


0 0 5 5 6 

7 4 4 0 0 2 


STL 



00557 

101276 


JMS 

CBANK 

/SETUP for NEXT FIELD 

0 0 5 6 Ei 

620537 


JMP« 

REST2 


00561 

624307 


JMP* 

EXIT 

/NO MORE TO READ 



/ 

/ROUTINE 

TO READ 

the field with 

The ADDRESS 



/PATTERN 

FROM LO 

TO HI . 


0056? 

';'00 J00 

RFWD2 

0 



00563 

204340 


LAC 

PATBNK 

/FIELD WITH address PaTTERN 

0 0 5 6 4 

044275 


OAC 

MEMAOR 


00565 

770000 


LAW 

“10000 


00566 

044277 


DAC 

CT4K 


00567 

204275 

FW02 

LAC 

MEMAOR 

/ADDRESS 

00570 

740001 


CMA 


/complement 

00571 

044274 


OAC 

PATR 


0057? 

224275 


LAC* 

MEMADR 

/READ 

0057 3 

544274 


SAP 

patr 

/COMPARE 

00574 

741000 


SKP 


/OK 

00575 

101377 


JMS 

ERROR 

/PRINT error 

00576 

444275 


IS? 

MEMADR 

/ADDRESS + 1 

00577 

444277 


IS? 

CT4K 


006 00 

600567 


JMP 

FWD2 

/READ ANOTHER 

00601 

760000 


LAW 



0060? 

544320 


SAD 

RLOCi 

/NO BLOCK IF = LAW 

00603 

600605 


JMP 

RBAK2 

/READ backwards 

00604 

602523 


JMP 

RLKC2 

/SETUP FOR block 


/ 


.EJECT 



THFN hTCHECK 


/ 




/NOW READ ? 4 / ■' F 

field from 



/PFS’ OF MEMORY 

• 

' ' 0 6/“^ 

4 0 

/ 

^ RAK? LAC 

patbnk 

0 6 v1 

?44 ^77 

XUP 

K7777 

0 0 6 v/ 7 

744275 

PAC 

mEMaDR 

0 0/17 

777400 

L A « 

-10000 

0 0^11 

44277 

DAC 

CT4K 

0 0 / 1 " 

777774 

P A K 2 LAW 

-4 

0 0 6 1 J 

.'44 342 

PAC 

RPETE 

0 614 

'704275 

L AT 

memaDR 

'10615 

740001 

CM A 


0 0 616 

44 274 

DAC 

PATR 

0 0 617 

724275 

LAC* 

MEMADR 

0 0 4 2 0 

-44274 

SAD 

PATR 

006P1 

400624 

JMP 

.+3 

0062? 

101377 

JMS 

ERROR 

00627 

6710626 

JMP 

. +3 

0 0 6 2“^ 

444342 

IS? 

RPETE 

0 0 6 2 

600617 

JMP 

RAK2 + 5 

00626 

777777 

LAW 

-1 

00627 

344275 

Tap 

MEMADR 

0 0 6 30 

/ 4 4 2 7 5 

DAC 

MEMADR 

00631 

444277 

IS? 

CT4K 

:i0 6 32 

600612 

JMP 

RAK2 

0 0 6 3 3 

760300 

L A In 


00634 

‘='44320 

SAD 

RLOCl 

0063'= 

- 20562 

JMP* 

RFWD2 

0 0-6 3 4 

602525 

JMP 

PLKD2 


.EJECT 


/FIELD Pattern 


/READ 

/COMPARE 

/PRINT ERROR 

/READ EACH 4 TIMES 


/ADDRESS MINUS 1 
/4K when 0 


/NO BLOCK IF = LAW 

/EXIT AND RECHECK REST OF MEMORY 

/SETUP NEXT block 



PAGE :! 


y A 1 


/ 




/TEST ? A . ^ 5 ' T F 

same pattern in 

Same field 



/from hi TP : 0 , 



; : ^ 3 7 

103070 

/ 

TST2A 

WRTIS 

/write I’S IMTO ALL OF MEMORY 


:a04340 

L A r 

PATgNK 

/field with pattern 

0 6 4 1 

?44377 

X 

K7777 


■■'064? 

044275 

DAP 

MEMaDR 


0 0 6 4 3 

770000 

L A /' 

“10000 


0 0 6 4 4 

044277 

PAG 

CT4K 


0 06 4 6 

P 04275 

/ 

P A K 2 A L A 

memaor 

/ADDRESS 

0 0 6 4 6 

740001 

C M A 


/COMPLEMENT 

00647 

064275 

u A -C » 

mEmadr 

/WR I TE into SAhE 

0 0650 

777777 

LA,v 

-1 


00651 

344275 

Tap- 

memadr 

/address minus 1 

00650 

044275 

dap 

MEMADR 


00653 

444277 

IS 7 

CT4K 

/4K when 0 

00654 

600645 

JHF 

RAK2A 


0 0 6 5 6 

760000 

L Avn 



00656 

544320 

Sap 

PLOCl 

/NO BLOCK IF = LAW 

00657 

741000 

SKP 



00660 

602511 

JMP 

BLKA2 


00661 

100511 

JMS 

RST2 

/SETUP TO CHECK REST OF MEMORY 

0066? 

100562 

JMS 

RFWD2 

/READ LO TO HI J HI TO LO 

0 0 6 6 3 

1 005 II 

JMS 

RST2 

/RECHECK REST OF MEMORY AGAIN 



/ 

/setup to write 

address Pattern 

IN NEXT 



/sequential EIELn 


0066^^ 

P 0 4 3 4 0 

NXPT2 LAC 

paTbnk 

/current test field 

00665 

544301 

Sap 

LaSTI 

/waS it The last 

00666 

600277 

JMP 

EXAm3 

/yes. Check for test 3 

00667 

1 03070 

JMS 

wRTiS 

/write I’S INTO ALL OF MEMORY 

00670 

204340 

LAP 

PATBNK 


00671 

344400 

T AO 

K10K 

/add 4K to current field 

0067? 

CM 4 3 4 0 

OAC 

PATBNK 

/NEW FIELD 

00673 

044275 

DAP 

MEMADR 


00674 

744000 

CLL 



00675 

101276 

JMS 

CBANK 


00676 

600461 

JMP 

L0P2+3 


00677 

1^00277 

JMP 

EXAM3 



/ 

.EJECT 



AGE 


Y A ! 1 


/ 

/TEST SLI'E A 1 THRU 1 FIELD. REPEAT 18 TIMES 
/PER FIELD T>' CHi^CK EACt- BIT PrSITIOKi. REST OF MEMORY 
/WILL CONiTAp. all I’S. CHECK REST OF MEMORY AFTER 
/EACH WRITE and read IN' THE FIELD BEING TESTED. 

/ 



760263 

TST3 

L a^n 

263 


00701 

'"44345 


n AC 

TNUM 

/TEST NUMBER 

■"070? 

1 03070 


JMS 

WRTlS 

/WRITE I’S INTO ALL OF MEMORY 

00703 

102733 


jms 

seti 

/SETUP FOR 1ST FIELD 

(■ »70 4 

744000 


CLL 



.'070'! 

1 01276 

/ 

L0P3 

JMR 

CBANK 

/SEE IF IT HAS PROGRAM 

0 0 7 0 6 

741000 


SKP 


/NO 

0 0 7 0 7 

600724 


JMP 

CKB3 

/ALL DONE 

0 0 7 1 P 

204346 


LAC 

K1 

/K1 = 1 

00711 

('■’44344 


DAC 

BITN 

/C(BITN) = STARTING BIT POSITION 

0071? 

P04344 


LAC 

P I TN 


00717 

044274 


DAC 

PATR 


00714 

744000 


CLL 



00715 

204274 

WL0P3 

LAC 

PATR 


00716 

064275 


DAC* 

memaor 

/WRITE THE BIT 

00717 

740010 


RAL 


/NEXT POSITION 

00720 

'M4274 


DAC 

PATR 


00721 

444275 


ISl 

MEMAOR 

/ADDRESS + 1 

0072? 

444277 


IS? 

CT4K 

/4K WHEN SKIP 

00727 

600716 


JMP 

WL0P3+1 

/WRITE IN NEXT 

00724 

760000 

CKP3 

LAW 



00725 

544720 


SAD 

BLOCl 


00726 

■741000 


SKP 



00727 

602547 


JMP 

BLKA3 


00730 

100734 


JMS 

RST3 

/SET UP TO READ REST OF MEMORY 

00731 

1 00757 


JMS 

RFWD3 

/READ FIELD LO TO HI 

0073? 

100734 


JMS 

RST3 

/RFCHECK REST OF MEMORY 

0 0 7 3 7 

601007 


JMP 

CK18b 

/See if 18 POSITIONS YT 


.EJECT 



PiGE 1^- 


y A 1 - 

/ 

/SETUP TO READ REST OF MEMORY, 


/ 


' 0 7,^.; 

= ’,’7 0 

RST3 

(/■ 




704301 


LAC 

L A ST 1 

/Last field to test 

0 7 7>h 

64 4 <00 


SAO 

FIRSTi 

/FIRST TO test 

G 0 7 3 7 

/ 7 0 734 

PTN3 

JMP* 

RST3 

/NONE TO test 

1/ 7 4 (■' 

7^/4300 


LAC 

FIRSTi 


E 0 7 4 1 

' 44775 

RST3A 

HAG 

memadr 


G 0 7 4 7 

77 ■'■■/00 


LAW 

“10000 

/-4K 

00747 

4 4 7 7 7 


DAT 

CT4K 

/4K COUNTER 

00744 

7/4 .- I 0 4 


LAC 

K R T N 3 

/KRTM3 = LOCAT ion RTN3 

0 0 7 4 R 

44307 


OAC 

EXIT 


0 0 7 4 R 

704775 


LAC 

memadr 


00747 

544340 


Sad 

paTbnk 

/FIELD Rith Pattern 

007150 

600753 


JMP 

. +3 


00751 

100537 


JMS 

REST2 

/READ REST OF MEMORY 

0 0 7 5? 

600746 


JMP 

. -4 


00757 

644301 


SAO 

LASTl 


00754 

620734 


JMP^, 

RST3 

/NO MORE TO READ 

00755 

344400 


Tad 

K10K 

/ADD 4K TO CURRENT 

00756 

600741 


JMP 

RST3A 

/TRY NEXT 


/ 


.EJECT 





/XAnQ5 

-TAP^ ; 





/ r A 

test i PaTT 

PPN from LO to hi. 


' 71S 7 

' ■ -'=0 

p F W D 3 




. ' . ' / (S V 

'/ ■ 74 0 


L . ; 

patbnk 

/EiELD with bit Pattern 

.0761 

■■ 4 4 '7 7 5 


• A i/ 

MEMADR 


• ' 0 7 6 - 

1 7 |7 ;.J 0 0 


LA/. 

-10000 


.'07 6 7 

44277 


HAC 

CT4K 

/4K counter 

"076- 

704744 


LAP 

R I TN 

/current starting POSITION 

’ 7 6 

644274 


OAC 

PATR 


, ' 7 A h, 

744000 


CLL 



.’7 7 

0?4275 

FWD3 

LAC* 

memaOR 

/read 

7 0 7 7 /' 

-44274 


SAn 

PATR 

/compare 

0 0 7 7 -I 

741000 


SKP 


/OK 

'0 0 7 71- 

1 01777 


JMS 

ERROR 

/PRINT ERROR 

'077 ■< 

704974 


LAC 

PATR 


0 0 7 7 4 

741 ?00 


S'\A 



0077^^ 

■‘'44002 


STL 



0 0 7 7f- 

4 '0 010 


RAL 


/next bit POSITION 

0 0 7 7 7 

44274 


PAP 

PATR 


■/ 10 07 

■-•44975 


ISF 

MEMADR 

/ADDRESS + 1 

0 1 0 1 

444977 


IS/ 

CT4K 

/4K when skip 

0 0 7 

''■00 767 


JP.p 

EWD3 


0 10 0' 

0 60 0 0 0 


LA/ 



010 0 4 

‘=44720 


SAP 

PLOCl 

/NO check lE = LAW 

0 10 0'=: 

^90757 


JMP » 

PERD3 

/EXIT 

010 0^ 

602661 


JMP 

PLKC3 


0 10 0 7 

9 0 4344 

/ 

CK18R 

LAC 

RITN 


0101 0 

544405 


SAD 

K400K 

/DONE IF = 400000 

01011 

0 1 0 2 1 


JMP 

NXPT3 

/setup for NEXT FIELD 

0101? 

744010 


RCL 



01017 

744344 


DAC 

P I TN 


0 1014 

204740 


LAC 

Patbnk 

/current EIELD 

0 1 0 1 

44275 


GAP 

memaor 


i ' 1 0 1 r 

770000 


LAW 

“10000 


01017 

4 4 ? 7 7 


HAC 

CT4K 


01020 

600712 


JMP 

WL0P3-3 




/ 

/SETUP 

/ 

NEXT fielh 

with bit pattern 


010 21 

704340 

/ 

NXPT3 

LAC 

Patbnk 


0 10 2? 

644301 


SAD 

LASTl 


01027 

600303 


JMP 

EXAM4 

/ALL DONE. CHECK FOR TEST 4 

010 2- 

1 07070 


JMS 

WRTlS 

/WRITE I'S INTO ALL OF MEMORY 

010?'= 

7 '04340 


LAC 

patbnk 


0 10 2 6 

344400 


Tad 

K10K 

/ADD 4K 

;4 1 0 ? 7 

'744340 


DAC 

PATBNK 

/NEW FIELD 

0107/ 

r44'?75 


DAP 

memaor 


(71071 

744000 


CLL 



-'■10 7 ? 

101276 


JMS 

CBANK 


1 

600710 


JMP 

L0P3 + 3 



6 0 0 303 


JMP 

EX AM4 



.E JECT 



PAGE 


X A ; 


/ 

/TEST 4. WRITE A PATTERN CONSISTING OE 
/alternate words of -111111 and 000001?, 

/EROy LO TO ^ I , anD MI TO LO. ThE PATTERN IS 
/READ The Sa-^E way. CHECK REST OE mENORy 
/after Each wRITE and READ SEQUENCE, THEN 
/COMPLEMENT THE PATTERN AND REPEAT. 


0103^' 

1 03070 

/ 

TST4 

JMS 

WRTlS 

/WRITE I’S INTO ALL OF OZMORy 

/ 1 0 3 H 

7 A I’ ? 6 4 


LAW 

264 


010 3 7 

'44345 


OAC 

TNUM 

/TEST number 

/ 10 4, 

^ 4 4 > 7 3 


D^N 

CNTRL 


,’104" 

^-1 ? 7 3 3 


JMS 

seti 

/setup for first field 

?\7 c. p 

~ 4 4 .J 0 0 


CLL 



010 4 0 

^ 01276 

LOP 4 

JMS 

CBANK 

/SEE IF IT HAS PROGRAM 

0 1 0 4 A 

7 4 1 00 0 


SKP 


/NO 

0 1 0 4 H 

^"1062 


JMP 

CKB6 

/ALL DONE 

010 4/ 

7^'4?73 


LAC 

CNTRL 


01047 

, 44?74 

WLOP 4 

DAC 

patr 


01050 

777774 


L A w 

-4 


010 51 

■•■4 4 342 


DAC 

rpete 

/4 WRITES per location 

0105? 

204274 


LAC 

patr 


01053 

740001 


cma 


/mill OR 000000 

010 5a 

’64275 


DAC* 

memadr 

/WRITE 

010 5 5 

4 4 4 3 4 2 


ISZ 

rpete 

/4 WRITES when SKIP 

010 5/ 

6 0 1 35 4 


JMP 

.-2 


01057 

444275 


ISZ 

memadr 


0 10 6 0 

444277 


ISZ 

CT4K 

/4K when SKIP 

010 61 

/ 0 1 0 4 7 


JMP 

WLOP 4 


0106? 

760000 

CKB6 

LAW 



01063 

544320 


SAD 

BLOCl 

/NO BLOCK IF = LAW 

01064 

741 000 


SKP 



01065 

602610 


JMP 

RLKA4 


01066 

1 '0 1 1 2 6 


JMS 

RFWD4 

/READ LO TO HI IN TESTED FIELD 

010 6 7 

101102 

/ 

/CHECK 

/ 

JMS 

REST4 

/READ REST OF MEMORY 



FOR COMPLEMENT PATTERN 


010 7 0 

204273 

LAC 

CNTRL 


01071 

740200 


SZA 



0107? 

601215 


JMP 

TST4A 

/WRITE BACKWARDS 

010 73 

740001 


CMA 



01074 

044273 


OAC 

CNTRL 


01075 

204340 


LAC 

PATBNK 

/FIELD WITH PATTERN 

01076 

044275 


OAC 

memadr 


01077 

770000 


LAW 

-10002 

/MINUS 4K 

0110 0 

044277 


DAC 

CT4K 


01101 

601 046 


JMP 

LOP 4+3 

/WRITE COMPLEMENT 


/ 


.EJECT 



n r 17 


/SETUP TO READ Rf^ST OF MEMORY 
/ 


1 1 0 

■ ■ 0 0 

' L 3 T 4 

0 



• ' ll 03 

-1 < 0 1 


LAC 

LASTl 

/LAST TO TEST 

- ■ 1 1 J '• 

^ 4 4 0 


SAL) 

F I RSTl 

/ONLY 1 selected IE EUUAL 


^ ? 1 1 2 

RTN4 

JMPtt 

REST4 

/none to read 

01 lOF 

? ;A 4 3 0 0 


LAC 

E IRSTl 

/FIRST TO TEST 

0 110 7 

444075 

REST4A 

OAC 

memaor 


01110 

"70 ,'i 0 0 


LAW 

-10000 


0111' 

:’44?77 


OAC 

CT4K 


' ' 111 J 

? 0 4 0 0 5 


LAC 

KRTN4 

/KRTN4 = LOCATION RTN4 

V' X 1 1 3 

044307 


OAC 

EXIT 


0 111^ 

0 m?75 


LAC 

memaor 


0111'^ 

=^44 340 


SAO 

patbnk 

/DOES FIELD HAVE PATTERN 

0111^ 

^.‘1 121 


JMP 

.+3 

/YES 

01117 

1 0 0 5 3 7 


JMS 

rest? 

/READ REST OF MEMORY 

011 ?0 

-.^1114 


JMP 

. -4 


011?' 

^^44301 


SAO 

lasti 

/DOES IT = LAST TO TEST 

011?? 

.■^2110? 


JMP* 

REST4 

/NO MORE TO READ 

3112 7 

704340 


LAC 

PATBNK 

/current field 

011?^ 

344400 


TAO 

K10K 

/ + 10000 

011?^ 

3 01107 


JMP 

REST4A 



/ 


/READ the RIELD WITH THE WORD PATTERN FROM LO TO 




/HI, THEN HI TO LO. 

/ 



01126 

0 '' 0 0 0 00 

/ 

RFWD4 0 



01127 

P04340 

LAC 

Patbnk 

/FIELD WITH pattern 

01130 

"44275 

OAC 

memaor 


01131 

770000 

LAW 

-10000 

/MINUS 4K 

01132 

044277 

OAC 

CT4K 


01133 

704273 

P8LK4 LAC 

CNTRL 

/CNTRL = 777777 OR 000000 

01134 

044274 

DAC 

PATR 


01135 

777774 

LAW 

-4 


01136 

L 4 4 3 4 2 

DAC 

rpete 

/READ EACH LOCATION 4 TIMES 

01137 

?04?74 

LAC 

PATR 


01140 

740001 

CMA 



01141 

/ 4 4 2 7 4 

OAC 

PATR 


0114? 

224275 

FWD4 LAC* 

memaor 

/READ 

01143 

544274 

SAD 

PATR 

/COMPARE 

01144 

601147 

JMP 

. +3 

/OK 

01145 

1 01377 

JMS 

ERROR 

/PRINT ERROR 

01146 

601151 

JMP 

.+3 


0114 7 

444342 

IS? 

RPETE 


01150 

601142 

JMP 

FWD4 


01151 

444275 

IS? 

memaor 

/ADDRESS + 1 

0115? 

444277 

IS? 

CT4K 

/4K WHEN SKIP 

01153 

601135 

JMP 

RBLK4+2 

/READ another 

01154 

7 60000 

LAW 



0115^^ 

544320 

SAD 

BLOCl 

/NO BLOCK IF = LAW 

01156 

601160 

JMP 

RBAK4 

/READ BACKWARD 

01157 

A-24307 

JMP* 

EXIT 

/SETUP FOR NEXT BLOCK 


/ 


.EJECT 



PAGE 1 


X A ^ 1 - 


/REAP Same field with word pattern FRQw 
^HI '^0 LO, Them ^ECHFCK rest of MFRCRY. 


^116 G 

?0 A 34 0 

Fp A K 4 

LAC 

patbnk 

/current test field 

'/ 1 1 6 1 

244377 


X u p 

K7777 



M 4 2 7 5 


DAG 

M^MADR 


0 1 1 6 T 

7 7 0 0 0 


L A lA 

-10000 

/MINUS 4K 

1/11164 

■ 44277 


DAG 

CT4K 


01165 

204273 


LAC 

CNTRL 

/CNTPL = 777777 OR 000000 

01166 

740001 


CMA 



01167 

044274 


DAG 

patr 


0117 0 

777770 

RAM 4 

L A 

-10 

/READ EACH LOCATION 8 TiMES 

01171 

/' 4 4 3 4 2 


DAG 

RPETE 


0117? 

204274 


LAG 

patr 


01173 

740001 


CMA 



01174 

-'M 4 2 7 4 


OAG 

PATR 


0 1 1 7 G 

224275 


LAC* 

MEMADR 

/READ 

0 1 1 7 F 

544274 


Sag 

PATR 

/compare 

01177 

601 202 


JMP 

. +3 

/OK 

0 1 ? 0 0 

1 01377 


JMS 

ERROR 

/PRINT error 

01?01 

601204 


JMP 

. +3 


0120? 

444342 


I S3 

RPETE 


012 0 3 

601175 


JMP 

R A K 4 + 5 


012 0 4 

777777 


LAW 

-1 

/MINUS 1 

01?0p 

344275 


TAP 

MEMADR 

/ADDRESS MINUS 1 

01?06 

044275 


DAG 

MEMADR 


01207 

444277 


IS? 

CT4K 

/4K when skip 

01210 

60]^ 170 


JMP 

PAK4 

/READ another 

01211 

760000 


LAW 



0121? 

544320 


SAD 

RLOCl 

/NO BLOCK IF = LAW 

01213 

621126 


JMP* 

RFW04 

/READ REST OF MEMORY 

01?14 

624307 


JMP* 

EXIT 




/ 

.EJECT 





X A f! 1 


Wge 


/ 




/ T F S T 4 A . 

/ 

■x K ! T r 

IN SAMP FIFLD PROM HI 

TO L 0 . 

1 ? 1 

? 7 7 7 7 7 

/ 

TST4 A 

LAW 

-1 


1216 

■■46273 


OAC 

CNTRL 


/ 1 2 1 7 

,■44274 


D AC 

PATR 



? P 4 3 4 0 


LAC 

patbnk 

/current field with pattern 

12 21 

244377 


XOP 

K7777 


'/ 1 2 2 7 

744275 


PAC 

memaor 


1 2 2 

7 7 0 0 0 


LAW 

-10000 


P’' 1 2 2 ^ 

■ 4 4 2 7 7 


PAC 

CT4K 


1 2 2 ^ 

777760 

L0P4 A 

LAW 

-20 


2 : 1?26 

4 4 342 


PAC 

RPFTE 

/WRITE EACH location 16 TIMES 

01227 

2 0 4 2 7 4 


LAC 

PATR 


01230 

740001 





01231 

744274 


PAC; 

PATR 


012 3 0 

. 64275 


P AC^tt 

memadr 

/WRITE 

p' 1 2 3 3 

444342 


I S3 

RPETP 

/16 WRITES when SK P 

0 1 2 3 A 

^'01232 


J0P 

.-2 


0123^ 

777777 


LAW 

-1 


pn 2 3 6 

344275 


TAP 

memaor 

/address - 1 

01237 

744275 


DAC 

memadr 


p 1 2 4 

444277 


I S7 

CT4K 

/4K WHEN SKIP 

01241 

601 225 


JMP 

L0P4A 

/WRITE another 

012 4? 

760 000 


LAW 



012 4 3 

644320 


S AH 

8L0C1 

/NO FLOCK IF = LAW 

0 1 2 4 4 

741000 


SKP 



012 4 5 

6- P 2 6 4 2 


JMP 

RLKF4 

/SETUP FOR NEXT BLOCK 

01246 

274273 


LAC 

CNTRL 

/CNTRL = 777777 OR 000000 

01247 

740001 


CMA 



012 5 0 

744273 


DAC 

CNTRL 

/COMPLEMENT FOR READ FORWARD 

0l?5l 

101126 


JMS 

RFWD4 

/READ forward 

01252 

101 102 


JMS 

REST4 

/read rest of memory 

01253 

204340 


LAC 

PATBNK 


01254 

i' 4 4 2 7 5 


DAC 

memadr 


01255 

204273 


LAC 

CNTRL 


01256 

740200 


S2a 


/CHECK FOR COMPLEMENT 

01257 

601262 


JMP 

NXTP4 


01260 

044274 


DAC 

PATR 


01261 

601 220 


JMP 

TST4A+3 



/ 


EJECT 



PAGE P ^ 


X A i 1 

/ 

/SETUP TO wPFTE IN NEXT EIELO 


/ 


‘ 1 ^ 0 ‘ ' 

- •' 5 4 0 

E XTP4 

LA'" 

‘^atbnk 

/CURRENT FIELD 

1 ? 

- 4 4 ? 1 


Sap 

LaSTI 


1 * 1 ? 6 

• 0:’307 


1 M ^ 

EXAM4+4 

/SETUP TO RELOCATE 

' 1 ? o 

■ ,'3/70 


J!^S 

W R T 1 S 

/WRItE I'S INjO ALL OF MEMORY 

/' 1 ? 6 r 

■; 4 5 4 0 


L AU 

PaTBNK 


'/ 1?6 7 

344400 


TAO 

K10K 

/PLUS 4K 

1 ? 7 U 

'-'44540 


DAG 

PaTBNK 


I71?71 

’44?75 


OAC 

memadr 


7 1 ? 7 ? 

744/00 


CLL 



i'' 1 ? 7 T 

101276 


JMS 

CBANK 


■/ 1 ? 7 4 

r ^ 1 0 4 6 



L0P4+3 


0 1 ? 7 5 

^ 0 307 


JMP 

EX AM4+4 




/ 

/ROUTINE 

TO See if 

Tested field haS 

PROGRAM 

0 1 ? 7 6 

,'70000 

/ 

CBANK 

0 



0 1 ? 7 7 

770000 


L A «! 

-10000 


0 1 3 U / 

044277 


OAC 

CT4K 


P 1 3 0 1 

1 01360 


JMS 

where 

/CURRENT PROGRAM FIELD 

013 0? 

‘^44?75 


SAH 

memadr 

/NEXT TO TEST 

01303 

601317 


JMP 

CBNK-4 


0130 4 

421 276 


JMP» 

CBANK 

/EXIT 

0130=^ 

441276 

NOMOR 

IS/ 

CBANK 

/RETURN +1 

0 1 3 0 

6 7 1 ? 7 6 


JMP* 

CBANK 


0 1 3 v) 7 

274275 


LAC 

memadr 


0131 0 

344400 


TAO 

K10K 

/CURRENT +4k 

01311 

044275 


OAC 

memadr 


0131? 

740400 


SNL 



01313 

4 4 3 4 0 


DAC 

PaTBNK 


01314 

770000 


LAW 

-10000 

/-4K 

0 1 3 1 

044277 


OAC 

CT4K 

/4K counter 

01316 

601277 


JMP 

CBANK+1 

/EXIT AND TEST NEW FIELD 

01317 

204275 

/ 

LAC 

memadr 


01320 

344400 


TAO 

K10K 


01321 

044275 


OAC 

MEMADR 


0132? 

101344 


JMS 

nxtbnk 





.EJECT 





PRgf 


X A n 1 S 


1 3 ? < 

, ■1'^ .3 0 0 

C B N K 

0 





■ - ^ ,1 /, 0 


L 4/. 

-10000 



13 

- 4^777 


oat 

CT4K 




^^■4275 


T 

mehadr 



3 13^7 

-'44301 


?• 4 

LASTl 



fe' 1 3 3 

h 0 4307 


J"lP* 

FX I T 



13 31 

1 0 1560 


J-'IS 

where 


/SEE WHERE program IS 

, ' 1 3 3 P 

A 5 


? A.'1 

memadr 


/NEXT TO TEST 

X 1 3 3 3 

741000 


SKP 



/add 10K 

P 1 ^ 

421 323 


JMP» 

CBNK 


/READ ALL I'S 

1 3 3 - 

‘^44301 


S AO 

LASTl 


/SEE IE LAST 

; ■' 1 3 3 6 

^24307 


JMP« 

EXIT 


/NO MORE TO READ 

133 7 

344400 


TAO 

K10K 



'3134 

044275 


OAC 

MEMADR 


/NEW FIELD 

pi 1 3 4 1 

544340 


SAO 

PATBNK 



01342 

601335 


JMP 

.-5 



01343 

621323 

/ 

/ROUT I NE 
/ 

NXTBNK 

JHP» 

CBNK 


/EXIT 



TO CHECK FOR LAST 

FIELD 


013 4 4 

000000 

0 , 




01343 

750004 


LAS 



/CHECK ACS0 FOR HALT 

0134 6 

741100 


SPA 




0134 7 

1 01364 


JMS 

HALT 


/GO halt 

01350 

770000 


LAW 

-10000 


/-4K 

01351 

344275 


TAO 

memadr 


/SUBTRACT 4K 

01352 

544301 


SAP 

LASTl 


/ALL DONE IE EQUAL 

01353 

7^01305 


JMP 

NOMOR 



01354 

201344 


LAC 

NXTBNK 



01355 

740010 


PAL 



/RESTORE LINK 

01356 

204275 


LAC 

memadr 


/NEXT FIELD 

01357 

601312 

/ 

JMP 

NOMOR + 5 





/ 

/ROUTINE 

/ 

WHERE 

TO dete'^minf where 

program IS 


0l360 

000000 

0 



/CONTAINS EPC 

01361 

201360 


LAC 

.-1 



01362 

504403 


AND 

K70K 


/clear all BUT Bits 3 , 4,5 

01363 

621360 

/ 

JMP* 

WHERE 


/EXIT 



/ 

/HALT ROUTINE. 

PRESS CONTINUE TO RESUME 




/TESTING, 

OR IF 

ACS CHANGES 

, TO execute 



/NFW PaRAMFTERS 
/ 


PI 1 3 6 4 

000000 

halt 

0 


01365 

740040 


HLT 


0136 6 

750004 . 


LAS 


013 6 7 

740010 


RAL 


013 7 0 

741 100 


SPA 


0 13 71 

6 21 364 


JMP* 

halt 

0137? 

740020 


RA- 


X'13 73 

<304406 


A Xi ‘ * 

Ki77 

'1374 

544272 


S A r, 

MCWA 



PAGE 


X A r ' ^ 

-''\M‘^ ' jhP 

.EJECT 


halt 

STOVER 



~P A i, F. 'r:- 


X Ai ' 1 


/ 

/error PRPT-OUT ROUTINE. PLACE ACS0 UP FOR 

/halt after rrint-out. press continue 
/ 


3 7 7 

• 0 0 0 0 

ERROR 

0 



/, 1 A 0 U 

'•-44 302 


OAF 

R API 

/Save bad data 

014 01 

?04275 


LAC 

MEMAOR 


0140? 

044303 


OAC 

OCADR 

/Save failing address 

01403 

?04?74 


LAC 

PATR 


014 0 ^ 

044304 


OAC 

GOODl 


0 1 4 0 H 

204325 


LAC 

FRWRD 

/error Table pointer 

■■^1406 

544044 


SAP 

FNERR 

/LAST address of TABLE 

01407 

741000 


SKP 



01410 

601414 


JhP 

. +4 


tn 4 1 1 

004043 


LAC 

ERTBL 

/FIRST address of TABLE 

0141? 

^'44325 


OAC 

frwro 

/PUT POINTER TO TOP OF TABLE 

01413 

601423 


jmR 

SW2 

/CHECK AC2 FOR BELL 

0 1414 

204303 


LAC 

OCADR 

/FAILING ADDRESS 

01415 

504403 


AND 

K70K 

/MASK 3,4 AND 5 

01416 

544336 


SAP 

LAST 

/NEW ERROR FIELD IE SKIP 

01417 

601423 


JMP 

. ♦ 4 

/SAME FIELD AS LAST ERROR 

01420 

044336 


OAC 

LAST 


014 21 

064325 


D AC* 

ERWRO 

/STORE FIELD# IN TABLE 

0142? 

444325 


I S? 

FRWRD 

/INCREMENT pointer 

0 1423 

760000 

/ 

SW2 

LAW 


/PRINT inhibit if = LAW 

0142A 

544267 


SAP 

NOPRNT 


014 25 

601443 


JMP 

SW0 

/NO PRINT 

01426 

750004 


LAS 



01427 

742010 


RTL 



01430 

740100 


SMA 


/BELL IF SKIP 

01431 

601435 


JMP 

SWl 

/CHECK ACS 1 

0143? 

760207 


LAW 

207 

/ASCII BELL 

01433 

101571 


JMS 

PCHAR 

/PRINT 

01434 

601443 


JMP 

SW0 


01435 

750004 

swi 

LAS 



01436 

740010 


RAL 



01437 

740100 


SMA 


/NO SKIP = PRINT INFO 

01440 

601450 


JMP 

DOERR 

/PRINT 

01441 

101364 


JMS 

HALT 

/HALT 

01442 

601450 


JMP 

DOERR 

/PRINT INFO 

014 4 3 

750004 

SW0 

LAS 



01444 

741100 


SPA 


/NO SKIP r halt 

01445 

1 01364 


JMS 

HALT 


014 4 6 

707702 


EEM 



01447 

621377 


JMP* 

ERROR 

/RETURN TO READ ROUTINE 




.EJECT 





X A rn 's 



.EJECT 


/IF 1ST LOC. OF SUPTrL = La^. 

/NO ADR. SUPPRESSION WANTED 

/SEE IE This error is suppressed 

/YES. 

/CR,LF 


/Test number 

/-9 

/SPACING COUNT 
/SPACE 9 


/PRINT FAILING ADDRESS 


/SPACE 6 

/what data should be 

/PRINT THE GOOD 


/SPACE 2 
/DATA READ 

/PRINT THE BAD 


/SPACE 5 


/PRINT "ALL" 


rtl; 


/FIELD WITH PAT 

rtl 



^GE 2S 


X Ain 


('1 1 R P R 

:'4 4 362 


TA1 

*6260 



1 '' 15 71 


JMS 

PCHAR 


■n^2-^ 

4 4 4,524 

CMAX 

IS/ 

“^AXERR 


>'1^3/ 

R 0 14 4 3 


JHP 

Sw0 


11 1 S 3 1 

777700 


LA^s 

-100 


3 15 3? 

7443?4 


DAC 

maXERR 


1? 1 5 3 3 

76'7I000 


LAW 



1-115 3 4 

744267 


n AC 

MOPRNT 


1 5 3 5 

103737 


JHS 

crlf 


^11536 

204007 


LAC 

PTO 


01537 

c- 4 4305 


OAC 

PRNT 


1 5 4 ? 

103701 


JMS 

PNXT 

/PRINT-OUTS INHIBITED 

015 41 

103737 


JHS 

CRLF 


0154? 

777766 


LAW 

-12 


015 4 3 

043737 


DAC 

CRLF 


01544 

760212 


LAW 

212 


01545 

101571 


JMS 

PCHAR 

/10 LINE FEEDS 

01546 

443737 


IS? 

CRLF 


01547 

601 544 


JMP 

.-3 


0155V'' 

601443 

/ 

/CHECK 

/ 

CSUP 

JMP 

SW0 




EOR SUPPRESSED ADDRESS 


01551 

:■ 0 0 0 00 

0 



0155? 

224013 


LAC* 

SUPT8L 


01553 

-44303 


SAD 

nCAOR 

/compare with current address 

01554 

601564 


JMP 

TOP 

/SUPPRESSED 

0155 5 

^44337 


SAD 

LSTSUP 

/SEE IF DONE WITH LIST 

01556 

601567 


JMP 

SPEXT 

/YES 

01557 

204013 


LAC 

SUPTBL 


01560 

544014 


Sad 

estbl 

/SEE IF DONE WITH TABLE 

01561 

601567 


JMP 

SPEXT 

/YES 

01562 

444013 


IS? 

SUPTBL 

/POINTER +1 

01563 

601552 


JMP 

CSUP+1 


01564 

204012 

TOP 

LAC 

STBL 


01565 

044013 


DAC 

SUPTBL 

/RESTORE pointer 

01566 

621551 


JMP* 

CSUP 

/EXIT 

01567 

441551 

SPEXT 

IS? 

CSUP. 

/EXIT address +1 

01570 

601564 

/ 

PCHAR 

JMP 

TOP 


01571 

000000 

0 



0157? 

700406 


TLS 



01573 

700401 


TSE 



01574 

601 573 


JMP .-1 



01575 

621 571 


JMP* 

PCHAR 



/ 


.EJECT 



PAGE 


X Ar;l=^ 




/ 

/PP I MT 

/ 

proctl 

6 DIGIT 

octal numbers 


7 ^ 

0 .•! 0 0 

0 



0 15 7 7 

777772 


L A ‘A 

-6 


W 1 6 0 P' 

■ 4 4 3 4 2 


OAC 

RPETE 


016 0 1 

^03737 


LAC 

CRLF 


01602 

744010 

POSN 

RCL ; 

rtl 


01603 

742010 





01604 

043737 


OAC 

CRLF 


01605 

740010 


PAL 



01606 

-04350 


A\D 

K7 

/mask AC 15-17 

01607 

044362 


XOP 

K260 

/MAKE ASCII 

01610 

103571 


JHS 

PCHAR 

/PRINT 1 

01611 

444342 


IS? 

rpete 

/6 DIGITS when SKIP 

0161? 

741000 


SKP 



01613 

621576 


JMP* 

proctl 

/EXIT 

01614 

601601 

/ 

/SPACE 

/ 

SPING 

JMP 

POSN-i 

/POSITION NEXT number 



ROUT I njE 



01615 

000000 

0 



01616 

760240 


LAW 

240 


01617 

1 01571 


JMS 

PCHAR 

/PRINT A SPACE 

01620 

443737 


IS? 

CRLF 

/DONE when skip 

01621 

601617 


JMP 

.-2 


0162? 

621615 

/ 

JMP* 

SPING 

/EXIT 


.EJECT 



^GE 


.'16?^ 


/1 1 6 ? 6 
1 6 2 7 
tn 6 3 i/ 
v’ 16 31 
'163? 
71633 
^163^ 
'-1163'^ 
vU636 
01637 
01640 
016 41 
0164? 

016 4 3 

01644 
016 4 5 
016 4 6 
016 4 7 

01650 

01651 
0165? 

01653 

01654 

01655 

01656 

01657 


/ X A i) 1 5 - T A pr < 


.PtniTl\'ES T^i Ar,t.!-PT keyboard input for tfst selection; 

/aODPESS SuP'- RFS^ I AND BLOCK TEST I I M IT S . PLACE ACS 13 DOWN 
/before FE- ! '■ 1 T I a T T NG MAIN PROGRAM. 


/ 


0 7 7 6 2 

k y R n 

E D ,1 







1 4 4 3 4 4 

/ 

/TYPP 

/ 

tstno 


P I TN 


/TEMP, storage 

for 

INPUT 

CHARS. 


"TEST#" 

AND 

wait for input 





'.A 4 0 1 5 

LAC 


TSNX 





.44305 


OAC 


PRNT 





1 03737 


JMS 


CRLF 

/CR , LF 




1 03701 


JMS 


PNXT 

/PRINT "TEST#" 




1 02272 


JMP 


keyin 

/GO wait FOR INPUT 



! 44344 


DAC 


PITN 

/SAVE TTY CHAR. 




*-44374 


SAD 


K377 

/IS INPUT A RUBOUT 



601623 


JMP 


KYRRD 

/YES. start over 



*-44360 


S A . 


K215 

/no test wanted 

IF 

A C.R. 


601 660 


JMP 


SUPIN 

/LAST TEST PATTERN 

WILL BE USED 

777517 


LAW 


-261 





344344 


TA' 


BITN 





740100 


SNA 



/IF AC IS NEG. , 

TEST # IS 

<1 

■^01645 


JMP 


.+3 

/IT IS >1 




103547 


JMS 


WOTIS 

/PRINT QUESTION 

MARK 


^01 623 


JMP 


KYBRO 

/start over 




p fA 4 3 4 4 


LAC 


BITN 





740001 


CMA 







344346 


TAP 


Kl 

/2*S COMPLEMENT 

TEST # 


344366 


TAP 


K264 





740100 


SMA 



/IF AC IS NEG. , 

TEST # IS 

>4 

601655 


JMP 


.+3 





103547 


JMS 


WOTIS 

/THERE ARN’T more 

THAN 4 

TESTS 

601623 


JMP 


KYBRD 

/start over 




204344 

TSTN 

LAC 


BITN 





044345 


OAC 


TNUM 





601 660 

/ 

JMP 


SUPIN 

/WAIT For c.r. 





.EJECT 










/ n 0 N f: with t r s t # . 

NOW DO ADR. 

SUPPRESS ION 

-166- 

/ iA 4 y11 2 

/ 

SUP I - ! at 

‘^TPL 


/isT location in supress Table 

■' 1 6 6 j 

4 4 /' 1 3 

P A 3 

SUPTpL 


/POINTER 

’‘■166? 

? M 4 0 1 1 

lap 

ROTB 



16 6 3 

" 4 4 010 

0 A r 

RqTA 



1 6 6 4 

? ? 4 0 1 0 

L AC« 

rota 




(’44 311 

f'l A C 

nrota 


/SHIFT counter 

f)1666 

760000 

1- A i>i 




01667 

064013 

DAC-s 

suptbl 


/A LAW IN iST LOC. SaYS NO 






/address To be suppressed 

716 7 0 

144306 

nz^’ 

ADRCW 


/USED TO STORE I 5 BIT ADDRESS 

716 71 

103737 

JHS 

CRLF 



016 7? 

204016 

lac 

SUPSX 



716 7 3 

v' 4 4 3 0 5 

OAC 

PRNT 



01674 

1 03701 

jms 

pnxt 


/PRINT ••SUPPRESS” 



/ 

/accept 1ST address and then Wait eor a 

COLON 



/OR A COHMa 




01676 

? 0 4 0 1 7 

/ 

MXSUP LAC 

INSUP 


/C(INSUP) r SUPIN 

01676 

044310 

OAC 

OVER 



01677 

204020 

LAC 

SUPDN 


/C(SUPDN) = DNSUP 

01700 

044307 

OAC 

EXIT 



01701 

1 02272 

JMS 

KEVIN 


/WAIT EOR INPUT 

0170? 

1 02301 

JMS 

LEGAL 


/CHECK VALIDITV 

01703 

224010 

LAC* 

ROTA 



017 0 4 

044311 

D AC 

NROTA 


/C(NROTa) = COUNT FOR LEFT SHIFTS 

01706 

204344 

Lac 

PITN 



01706 

504350 

AND 

K7 


/MASK 15-17 

01707 

044344 

DAC 

BITN 


/SAVE 

01710 

103043 

JMS 

genadr 


/Start assembling ist address 

01711 

601 675 

JMP 

NXSUP 


/GET NEXT INPUT 



/ 

/return here from 

J 

genadr after 

5 CHARS. 

REC '0. 

01712 

204306 

/ 

LAC 

aorcw 


/FIRST address 

01713 

064013 

OAC* 

SUPTbL 


/STORE IN 1ST LOc. OF TabLE 

01714 

444013 

ISZ 

SUPTBL 



01715 

144306 

02M 

ADRCW 


/clear 

01716 

102272 

JMS 

KEVIN 


/WAIT FOR a: , OR C.R. 

01717 

544374 

SAD 

K 377 


/CHECK FOR RUBOUT 

01720 

601 623 

JMP 

kvbrd 


/START OVER WITH TEST # 

01721 

544360 

Sap 

K215 


/CHECK FOR C.R. 

0172? 

602027 

JMP 

DNSUP 



01723 

544361 

SAD 

K254 


/CHECK FOR COMMA 

01724 

601 761 

JMP 

SUPBLK 


/A COMMA = SUPPRESS A BLOCK 

01725 

544370 

CKCLN SAP 

K272 


/CHECK FOR COLON 

01726 

741000 

SKP 




01727 

602312 

JMP 

QUERV 


/NONE OF THE AROVE. 


/ 





XAfil5 


/ACCEPT INOlUnUAL ADDRESSES 


/ 


/173t 

^ 02272 

6U-1 

jw ^ 

‘^EYIN 

/WAIT FOR 

I NPUT 

'/173] 

102301 


J '-1 ^ 

legal 

/CMECK validity 

/ 1 7 3 ? 

>24 , ) 1 {4 


L A '■ & 

ROTA 



01733 

■/ 4 4 311 


' A < 

NROTA 

/COUNTS LEET SHIETS MADE 

0173'i 

204344 


LAC 

RITN 



01735 

/04350 


A ‘N) r i 

K7 

/MASK ACS 

15-17 

0173/ 

044344 


0 A C 

RITN 



01737 

103043 


JMS 

genaor 

/ASSEMBLE 

ADDRESS 

01740 

601 730 


J0P 

SUPl 

/wait eor 

NEXT char. 

01741 

204306 


LAC 

adrcw 

/COMPLETE 

ADDRESS 

V' 1 7 4 2 

c 6 4 0 1 3 


D AC « 

SUPTBL 

/STORE IN 

SUPPRESSION Table 

01743 

044337 


DAC 

LSTSUP 

/lstsup = 

LAST TO SUPPRESS 

017 4 4 

■^04013 


LAC 

SUPTBL 



01745 

h 4 4 0 1 4 


SAD 

fstbl 

/CHECK FOR 

257 ADDRESSES 

V'’ 1 7 4 6 

602027 


JMP 

DNSUP 

/WAIT EOR 

C.R. 

01747 

^-44013 


IS? 

SUPTBL 

/ I ncrement 

pointer 

01750 

1 44306 


PziM 

ADRCW 



01751 

1 02272 


JMS 

KEVIN 

/WAIT EOR 

COLON INPUT 

0175? 

544360 


SAC 

K215 

/DONE IE C 

.R. 

01753 

602027 


JMP 

DNSUP 



01754 

601 725 

/ 

JMP 

ckcln 

/IS IT really a colon 

0175“=^ 

102272 

JMS 

KEVIN 

/wait eor 

C.R. 

0175/ 

644360 


SAC. 

K215 



01757 

602027 


JMP 

DNSUP 



01760 

602312 


JMP 

QUERY 

/NOT A C.R 



.EJECT 



PAGE 5 


y A I ■ 1 


/ 

/accept Twn inputs eor A suppresseo block 


/' 1 7 A ■ 

' 72272 

supblk 

JKS 

key 1 N 

/Wait eor input 

Pl76? 

1 02301 


J3S 

legal 

/CHECK Validity 

01763 

224010 


lac# 

ROTA 


01764 

244311 


n AC 

Nt^OjA 

/count leet shifts 

0176E 

21^4344 


L AC 

P I TM 


0 1 7 6 '‘1 

504350 


A u n 

K7 

/MASK ACS 1.5-17 

01767 

C44344 


OAC 

RITN 


01770 

1 03043 


J0S 

genadr 

/assemble address 

01771 

^01761 

/ 

JMP 

supblk 

/Wait for next 

1 7 7 ^ 

2 4 3 6 

LaC 

AORCW 

/complete address 

017 7 3 

244337 


nAc 

LSTSUP 

/SAVE 

01774 

204012 


LAC 

STBL 


0 1 7 7 S 

* 4 4 013 


OA'” 

SUBTBL 

/Setup table pointer 

01776 

224013 


LAC# 

SUPTBL 


01777 

740001 


CM A 



0 2 000 

344346 


Tap. 

Kl 

/2’S COMP. 1ST address 

02001 

344337 


TAli 

LSTSUP 

/subtract 2N0 address 

02002 

740100 


SMA 


/IST is > LAST IF SKIP 

02003 

602012 


JMP 

SETSUP-3 


02004 

224013 


LAC# 

SUPTBL 

/REVERSE THE TWO ADDRESSES 

02005 

043737 


DAC 

CRLF 

/SAVE FIRST 

02006 

204337 


LAC 

LSTSUP 


02007 

064013 


DAC* 

SUPTBL 

/LAST IS NOW FIRST 

02010 

203737 


LAC 

CRLF 


02011 

044337 


OAC 

LSTSUP 

/FIRST IS NOW last 

02012 

224013 


LAC* 

SUPTBL 


02013 

544337 


SAO 

LSTSUP 

/ARE they equal 

02014 

602027 


JMP 

ONSUP 

/YES 

02015 

204013 

SETSUP 

LAC 

SUPTBL 


02016 

544014 


SAO 

FSTBL 


02017 

602027 


JMP 

ONSUP 

/256 Chars stored, ignore any more 

02020 

224013 


LAC# 

SUPTBL 


02021 

344346 


TAD 

Kl 


02022 

A44013 


ISZ 

SUPTBL 

/increment pointer 

02023 

t'64013 


OAC* 

SUPTBL 


02024 

544337 


SAD 

LSTSUP 

/Was last the last to suppress 

02025 

602027 


JMP 

ONSUP 

/YES 

02026 

602015 


JMP 

SETSUP 





.EJECT 





f- F " 


/ A I a " 


/ 




/ 5 r s "■ 

0 H t P 0 1 

■tfrs before 

ENTERING NEXT LINE 

/■ 2 ? 7 

7^4 12 

/ 

nNSUP 

LAT 


STPL 



•' 4 4 1 3 


OAC 


SJPTPL 



704011 


LAC 


ROTB 

/POTP and ROTA must RE EQUAL 

7.2^Z2 

54401 0 


SAD 


0 T A 


^^27iZZ 

h V, 2 . 1 4 4 


JMP 


HLKl 



0 4 4 010 


OAC 


rota 

/RESTORE SHIFT COUNT POINTER 

2 20 35 

■’03547 


JMS 


WOT I S 

/LAST address was <5 CHARS 

0 20 3 6 

^ -7 16 60 


JMP 


SUP I N 

/start over with suppress 

0 2037 

lint's 

/ 

PQTC 

LAW 

-15 


/ROTATE 12 LEFT FOR 1ST DIGIT 

0 2 0 4 0 

mitt 


LAW 

-12 


/9 LEFT FOR 2ND 

02041 

mill 


LAW 

-7 


/6 LEFT FOR 3RD 

0 20 4 2 

nniA 


LAW 

-4 


/3 LEFT FOR 4TH 

0 20 4 3 

mill 


LAW 

-1 


/NONE FOR 5TH 



/ 

.EJECT 





PAGE 


V A I ' 1 •' 


/ 

/INiPUT ROUTIimE for AHORESS LIMITS OF BLOCK #1. 
/C'PESS CP IF NO BLOCKS WANTED, 


/ 


.0 2^4^^ 

' 44306 

PLKi 

n/M 

adrcw 


/ 2 0 4 

7 A 0 0 0 


LAW 



2^46 

44320 


0 A C 

PLOCl 


2 0 4 7 

'44321 


DAT 

RL0C2 


0 2 0 5 

:-'>'?335 


LAC 

STLOOP-1 


0 2 0 51 

'■ 4?3?0 


DAC 

LOCAT+4 


■■’1 20 5? 

7 2 4 0 1 0 


L AC* 

rota 


0 20 5? 

■44311 


0 AC 

nrot a 

/SHIFT COUNTER 

0205^ 

' '^3737 


JMS 

CRLF 




/ 

/type 

"block«1'‘ and Wait for input 


0 2 0 5 s 

’040?5 

/ 

PLKNl 

LAC 

BLKSX 


0 20 56 

744305 


DAC 

PRNT 


02057 

103701 


JMS 

pnxt 

/PRINT BLOCK #1 

02060 

004023 


LAC 

DONE? 

/C(D0NE2) = DBLKi 

02061 

fM4307 


DAC 

EXIT 


0206? 

704021 


LAC 

nblk 

/C(NRLK) = blki 

02063 

444310 


DAC 

OVER 


02064 

102272 

rlkia 

JMS 

KEVIN 

/WAIT FOR INPUT 

02065 

1 02301 


JMS 

legal 

/CHECK FOR LEGAL CHAR. 

02066 

704344 


LAC 

PITN 

/INPUT CHAR. 

02067 

504350 


AND 

K7 

/MASK AC 15-17 

02070 

044344 


DAC 

BITN 


02071 

103043 


JMS 

genadr 

/ASSEMBLE ADDRESS 

0207? 

602064 


JMP 

BLKIA 




/ 

/enter 

HERE after 

FIRST address received 

02073 

204306 

/ 

LAC 

adrcw 

/ASSEMBLED ADDRESS 

02074 

044320 


DAC 

pLOcl 

/FIRST ADR. OF FIRST BLOCK 

02075 

1 44306 


dzm 

ADRCW 

/CLEAR 

02076 

102272 


JMS 

KEVIN 

/wait for COMMA 

02077 

544361 


SAD 

K254 

/CHECK FOR COMMA 

02100 

741 000 


SKP 


/O.K. 

02101 

602312 


JMP 

QUERY 

/PRINT QUERY MARK 

0210? 

1 02272 

BLKiB 

JMS 

KEVIN 

/wait for input 

02103 

102301 


JMS 

LEGAL 

/SEE IF IT»S LEGAL 

02104 

204344 


LAC 

BITN 

/input char. 

02105 

504350 


AND 

K7 

/MASK AC 15-17 

02106 

044344 


DAC 

BITN 


02107 

103043 


JMS 

GENADR 

/assemble second ADR. 

02110 

602102 


JMP 

PLKIB 





.EJECT 





P A {; F .s 


X A [J 1 S 


/ 

/ENTER nEwr .rjE- SEfiONO AODRESS 
/ 


/ 2 1 1 1 

4 3 0 6 



adrcr 

/assembled ADDRESS 

J2112 

'■144321 


r- AT 

PLnC2 

/LAST ADR. OF 1ST BLOCK 

J211/ 

1 44306 

/ 

CBLKl 


ADRCW 


02114 

204011 

LAC 

POTB 


0 211^ 

'^44010 


SAC 

rota 

/MUST be equal 

2 2 1 1 ^ 

602121 


jMD 

. +3 

/O . K . 

02117 

044010 


n AC 

rota 


/' 2 1 2 0 

602312 


JMP 

QUERY 

/ADDRESS Is NOT 5 CHARS. 

02121 

760000 


1 A ^ 


/LAW = NO INPUT 

v'’ 2 1 2 2 

544320 


SAC 

RLOCl 


02123 

602163 


JMP 

PLK2 


0 212 4 

544321 


SAD 

BL0C2 

/CHECK FOR 2 INPUTS 

02125 

^02312 


JMP 

QUERY 

/PRINT QUERY AND START OVER 

02126 

204320 


L A C 

RLOCl 


02127 

504403 


A'Ni'' 

K70K 


02130 

044344 


CAT 

ritn 

/TEMP. SAVE ADR. BITS 3.4 AND 

02131 

204321 


LAC 

BLnC2 


0213? 

504403 


AND 

K70K 


02133 

043737 


P AC 

CRLF 

/DO SAME WITH UPPER LIMIT 

0 213 4 

^ 0?151 


JMS 

PROG 

/SEE IF LIMITS OVERLAP PROGRAM 

02135 

602163 


JMP 

RLK2 

/O.K. 

02136 

1 03737 


JMS 

CRLF 

/LIMITS IN Same 4K AS PROGRAM 

02137 

204025 


LAC 

BLKSX 


0 2 1 4 v'l 

044305 


PAC 

prnt 


02141 

1 03701 


JMS 

pnxt 

/PRINT block #1 

02142 

204026 


LAC 

OVRLP 


02143 

'044305 


PAC 

PRNT 


02144 

1 03701 


JMS 

pnxT 

/PRINT block #1 

0214S 

204407 


LAC 

K700K 


02146 

/4?320 


PAC 

LOCAT+4 

/change JMP* TO NOP 

02147 

1 02314 


JMS 

locat 

/PRINT area of PROGRAM 

02150 

602044 

/ 

PROG 

JMP 

PLKl 

/START OVER 

.^2151 

000000 

0 



02152 

101360 


JMS 

where 


02153 

544344 


SAD 

B I TN 

/Check if same as low limit 

02154 

741 000 


SKP 


/YES. ERROR 

02155 

602160 


JMP 

.♦3 

/NO 

02156 

442151 


IS? 

PROG 


02157 

622151 


JMP* 

PROG 


02160 

543737 


SAD 

CRLF 

/SEE IF Same as high limit 

02161 

442151 


IS? 

PROG 

/YES 

0216? 

622151 


JMP* 

PROG 

/EXIT 


/ 


.EJECT 



page: .^4 


X A ! i 1 


/ 

/IMPUT routine for block #? 


/ 



144306 

PLK2 

Pf 

AORCW 


/ 2 1 ^ 

760000 


L A f 



1 1 216'- 

'■44322 


PAG 

BLOC3 


H 216 6 

‘44323 


DAC . 

RL0C4 


P21 67 

1 03737 


JYb 

CRLF 




/ 

/TYPE 

/ 

BLOCK *'2 

AND Wait for input 


ia 2 1- 7 1/ 

<71 A7S21 

/ 

PLKNp 

LAO 

RLKTX 


(^2171 

044305 


OAC 

prnt 


c^2l7? 

103701 


jmS 

pnxt 

/PRINT Block #2 

t^2l7? 

204024 


LAC 

00NE3 

/C(D0NE3)=DBLK2 

02174 

044307 


PAC 

EXIT 


02175 

204022 


LAO 

tblk 

/C(TBLK) = BLK2 

02176 

044310 


PAC 

over 


02177 

1 02272 

BLK2a 

JMS 

keyin 

/Wait for input 

02200 

1 02301 


JMS 

LEgAL 

/ChECk for lEgal Char 

02201 

1504344 


LAO 

BITN 


0220? 

504350 


AND 

K7 

/MASK AC 15-17 

02203 

044344 


PAC 

BITN 


02204 

103043 


JMS 

genadr 

/assemble address 

02205 

602177 


JMP 

BLK2A 



/ 

/enter here after first address 


/ 


02206 

204306 


LaC 

ADRCW 

/assembled address 

02207 

044322 


DAC 

BL0C3 

/IST ADR. OF 2nd BLOCk 

02210 

144306 


DgM 

ADRCW 


02211 

102272 


JMS 

KEVIN 

/wait for comma 

02212 

544361 


SAD 

K254 


02213 

741000 


SKP 



02214 

602312 


JMP 

QUERY 

/PRINT QUERY 

02215 

102272 

BLK2R 

JMS 

KEVIN 

/wait for INPUT 

02216 

102301 


JMS 

LEGAL 

/SEE IF IT'S LEGAL 

02217 

204344 


LAC 

BITN 


02220 

504350 


AND 

K7 


02221 

044344 


DAC 

BITN 


02222 

103043 


JMS 

GENADR 


02223 

602215 

/ 

/return 

/ 

JMP 

BLK2B 




here after 

2N0 ADDRESS 


02224 

204306 

LAC 

ADRC'I 

/ASSEMBLED ADDRESS 

02225 

044323 


PAC 

BLOCA 

/LAST ADR. OF 2ND BLOCK 

02226 

144306 


DZM 

ADRCW 


02227 

102272 


JM5 

KEYIN 

/WAIT for C.R. 

02230 

544360 


SAD 

K215 


02231 

741000 


SKP 


/DONE 

02232 

602312 

/ 

JMP 

QUERY 

/PRINT QUERY 



.EJECT 




) 



FACE ^ V A i ; I - 


/ 


2 ^ 

,'■^011 

hblk? 

L AT 

rotb 


, ’ ? 9 s ^'- 

- 4 d 0 1 0 


SAO 

rota 

/MUST BE equal 

- 2? Z‘' 

- 1^240 


JNP 

. +3 

/O . K . 

■^'22^b 

4 4 1 0 


DAC 

rota 


f^2?37 

7 312 


JMP 

Query 

/ADR. IS not 5 CHARS. 

71224'/ 

^ r) '? 0 0 0 


LAW 



'■^2241 

^44322 


SAO 

BL0C3 

/LAW = NO INPUT 

«2242 

602336 


JMP 

STLOOP 


0 2 2 4 3 

^44323 


SAP 

RL0C4 

/CHECK FOR 2 INPUTS 

02244 

^02232 


JMP 

D8LK2-1 

/start OVER 

/224'S 

204322 


LAC 

RL0C3 


0 2 2 4 6 

504403 


ANn 

K70K 


0 22 4 7 

044344 


DAC 

R I TN 

/TEMP. SAVE MA 3, 4 AND 5 

02250 

204323 


LAC 

BLnC4 


02251 

504403 


AND 

K70K 


0 2252 

'43737 


DAC 

CRLF 

/TEMP. SAVE HIGH LIMIT 

02253 

1 02151 


JMS 

PROG 

/SEE IE LIMITS OVERLAP PROGRAM 

02254 

50:>336 


JMP 

STLOOP 

/SETUP TO START LOOPS 

02255 

1 03 737 


JMS 

CRLF 

/LIMITS IN SAME 4K AS PROGRAM 

02256 

204027 


LAC 

BLKTX 


02257 

044305 


DAC 

PRNT 


02260 

103701 


JMS 

PNXT 

/Print block #2 

0 2261 

204026 


LAC 

OVRLP 


0226? 

4 4 3 0 5 


DAC 

PRNT 


02263 

1 03701 


JMS 

PNXT 

/PRINT LIMITS OVERLAP PROGRAM 

02264 

204407 


LAC 

K700K 


02265 

042320 


DAC 

LOCAT+4 

/CHANGE JMP« TO NOP 

02266 

102314 


JMS 

LOCAT 

/PRINT AREA OF PROGRAM 

02267 

202335 


LAC 

STLOOP-i 


02270 

042320 


DAC 

LOCAT+4 

/RESTORE the JMP* 

02271 

602163 


JMP 

BLK2 

/START over 


.EJECT 



P A G E n V A n 1 


/ 




/character 

/ 

KEVIN 

I - PUT 

ROUTINE 


' 'A 0 0 0 0 

0 


0 2 ? 7 3 

700312 


K - 


'/ 2 ? 7 4 

700301 


KSf 


7227‘5 

602274 


JMP 

. -1 

02276 

700312 


K R P 


02277 

CM 4 3 4 4 


OAC 

PITN 

0 2 vT 0 0 

622272 


jmp» 

KEVIN 


/ 


/SEE IE CHa^aCTE^^ is LEGAL 


/ 

'^2 301 000 000 LEGAL 0 


02302 

204344 


LAC 

eiTN 

0 2 30 3 

644374 


SAO 

K377 

0 2 30a 

6016^3 


JMP 

kybrd 

0230H 

644360 


Sad 

K215 

0 23 0 6 

624307 


JMP* 

EXIT 

'^2307 

604373 


A NO 

K370 

v52310 

544362 


Sad 

K260 

02311 

622301 


JMP* 

LEGAL 

02312 

1 03547 

QUERY 

JM5 

WOT I S 

02313 

624310 

/ 

JMP* 

over 



.EJECT 



/initialize 

/WA I T 


/TEMp. SAVE 
/EXIT 


/TTY char. 

/CHECK FOR RUBOUT 
/START over WITH TEST # 
/check for c.R. 

/term I NATE 


/EXIT 

/PRINT QUESTION MARK 
/START present LINE OVER 



F '5 7 


y - 1 


'■ V ^ 1 

■ 1 H'l? 

/ F 1. ' 

^ VAA 

2 ^ U - 

'4 355 

/' 2 .■< 1 7 

■' 4 ','2 00 

?'?'^'^ f' 

' ? P 314 

2 3 2 1 

^ 3 7 3 7 

' 2232 ? 

.' 3 4 0 51 

2 2 3 2 :' 

-'44305 

2 2 3 2 

103701 

2 2 32 '- 

1 0 1360 

-'23 2 ^ 

7 4 4 ,1 1 0 

22327 

■742010 

22332 

742010 

22331 

742010 

12332 

344362 

3 2333 

1 01571 

32334 

103737 

32335 

622314 


02336 

103737 

F' 2 3 3 7 

760000 

0 23 4 0 

4 4 3 20 

02341 

741 000 

0234? 

6 n 2 3 4 6 

02343 

544322 

02344 

600251 

02345 

602377 

0234^ 

204345 

02347 

741 200 

02350 

760261 

02351 

4 4 3 4 5 

02352 

204320 

02353 

740001 

02354 

344346 

02355 

344321 

02356 

741100 

02357 

^02426 

02360 

204320 

02361 

504403 

0236? 

044340 

02363 

204345 

(1236 4 

504374 

0 23 65 

^=^44363 

0 2 36 6 

602435 

0 2367 

744364 

(123 7 0 

702506 

0 23 71 

544365 

‘12372 

702544 

0 23 77 

744366 


/PRIM AREA f' (.) N' 

TaIM'IMG program 


L. OCAi 

A 'J' 

K 1 0 0 


5/ A 

J p * 

locat 


J0S 

CRLF 

/CR, LE 

L AT 

P IS IN 


DAC 

PR NT 


J0S 

PNXT 

/PRINT "PROGRAM IS NI FIELD 

vJMS 

WHERE 

/where is it 

RCL ; 

R T L ; R T L ; 

RTL 



TAD 

K260 

/ASCII FIELD NUMBER 


JMS 

PCHAR 



JMS 

CRLE 

/CR, LE 

/ 

/SETUP 

/ 

STLOOP 

JMP* 

LOCAT 

/EXIT 

ROUT 1 NES 

EOR TESTING 

BLOCKS OF CORE 

jms 

CRLE 



LA« 


/SEE IF ANY blocks SELECTED 


SA'.i 

RLOCl 



SKP 


/LAW=NONE SELECTED 


JMP 

SETUI 



SAD 

BLOC3 



JMP 

STOVER 

/NO BLOCKS selected 

/ 

SETUI 

JMP 

SETU2 


LAC 

TNUM 

/SEE IE A TEST WANTED 


SNA 




LAR 

261 

/NO, USE TEST 1 

/ 

DAC 

tnum 


LAC 

BLOCl 



CMA 




TAD 

Kl 

/2’S complement UPPER LIMIT 


TAD 

RL0C2 



SPA 


/REVERSE IE NEG, 


JMP 

REVRl 


SINGL 

LAC 

BLOCl 



A NO 

K70K 



DAC 

PAT8NK 



LAC 

TNUM 

/DETERMINE PATTERN 


A NO 

K377 



SAP 

K261 



jvp 

SI MUl 

/TEST 1 pattern 


SA": 

K262 



JviD 

S IMU2 

/TEST 2 Pattern 


A 

K263 



J'"-' 

S1MU3 

/test 3 Pattern 


S A'' 

K26 4 




PAGE 3^ 


X 


'?374 

3 ? 6 4 

J.3P 

C 1 MU4 

/test 4 

pattern 

1 p 3 7 s 
' .7 3 7 r 

P 3 4 3 4 S 

7 4 ''1 3 4 3 

LAG 

mlT 

.EJECT 

TNUM 

/SHOULD 

never get here 



;5 o y A f ^ 1 - 


/ 


i"?3 7 7 

2 A 4 3 5 

5ETU2 

LAC 

! •' 2 4 

741200 


SNA 

/ 2 4 0 1 

76/261 


LAW 

0 2 4/2 

/ 4 4 3 4 5 


DAC 

0 2 4 0 3 

204322 


LAC 

0240-^ 

740001 


CNA 

'A 2 4 0 2 

344346 


T A i) 

0 24 0 6 

344323 


TAO 

02407 

741100 


SPA 

02410 

602421 


JMP 

024 11 

204322 


LAC 

/'24 12 

344320 


OAC 

02413 

204323 


LAC 

02414 

344321 


OAC 

024 15 

760000 


LAW 

02416 

044322 


OAC 

02417 

044323 


OAC 

02420 

'^02360 

/ 

JMP 

02421 

204323 

/ 

REVR2 

LAC 

02422 

044320 


OAC 

02423 

204322 


LAC 

02424 

044321 


DAC 

02425 

602415 

/ 

REVRl 

JMP 

02426 

204321 

LAC 

02427 

044344 


OAC 

02430 

204320 


LAC 

02431 

044320 


DAC 

02432 

204344 


LAC 

02433 

044320 


DAC 

02434 

602360 

/ 

JMP 

.EJECT 


TNIIM 


?61 

TNUM 

BL0C3 


K1 

RL0C4 

REVR? 

BL0C3 

RLOCl 

RL0C4 

PL0C2 

RL0C3 

RLOC4 

SINGL 


/LAST ADR. IS >FIRST IF 0 
/REVERSE contents 

/IST TO TEST 

/LAST TO TEST 

/A law = NO BLOCK SELECTED 


BL0C4 

9LOC1 

8L0C3 

RL0C2 

REVR2-4 


BL0C2 

RITN 

RLOCl 

BLoCl 

BITN 

BLOCl 

SINGL 



y A i ■> 1 s 


PAGE 4 1-1 


/ 




/SETUP 

/ 

S j MUl 

FOR Tt-ST 1 



V 4 3 

10^170 

jHS 

WRTIS 

/PUT I'S INTO ALL OF CORE 

;'24 3f-. 

1 .12775 


JMS 

setbi 

/SETUP 1ST BLOCK 

i/ ? 4 3 7 

^00333 

/ 

/RETURN 

/ 

B L K A 1 


WRLKl 

/WRITE Pattern in blocki 



HERE AFTER 

WRITING block 1 


0 2 4 4 

777777 

L A 0 

-1 


712441 

344275 


Tap 

memadr 

/LAST address 

71?44? 

544323 


SA0 

RL0C4 

/SEE IF 2 Blocks writtei 

71 2 4 4 3 

602452 


JMP 

tirdf 

/SETUP TO READ FORWARD 

(42444 

760000 


law 



{^l 2 4 4 S 

544322 


SAP 

BLOC3 


'32446 

602452 


JMP 

TiRDF 


02447 

10^704 


JMS 

CKADR 


(42450 

1 03006 


JMS 

SETB2 

/SETUP 2N0 block 

0 24 51 

600333 

/ 

/SETUP 

/ 

TIRDF 

JMP 

WBLKl 

/WRITE Pattern in block 2 



TO READ forward 


0245? 

102775 

JMS 

setbi 

/SETUP 1ST block 

0 24 53 

600367 


JMP 

RLOPl 

/READ BLOCK 1 LO TO HI 


/ 

/RETURN HERE AFTER READING A BLOCK LO TO HI 
/ 


02454 

777777 

RLKBl 

LAW 

-1 


02455 

344275 


Tad 

memadr 

/LAST address 

02456 

544323 


SAD 

BlOC4 

/Done both blocks iF equal 

02457 

602465 


JMP 

TIRDA 

/READ 2 BLOCKS HI jO LO 

02460 

760000 


LAW 



02461 

544322 


SAD 

BL0C3 

/SEE IF 2 selected 

02462 

602467 


JMP 

TlRDB 

/NO. READ 1 HI TO LO 

02463 

103006 


JMS 

SETB2 

/SETUP 2ND BLOCK 

02464 

600367 


JMP 

RLOPl 

/READ BLOCK 2 LO TO HI 

02465 

103031 

/ 

tirda 

JMS 

STB2 

/setup block 2 FOR HI TO LO 

02466 

600424 


JMP 

baki 

/read block 2 HI TO LO 

02467 

103017 

tirdb 

JMS 

STBl 

/SETUP block 1 FOR HI TO LO 

02470 

600424 


JMP 

baki 

/READ block 1 HI TO LO 



/ 

/return 

HERE after 

reading a block hi 

TO LO 

02471 

444275 

/ 

BLKCl 

ISZ 

memadr 


02472 

740000 


NOP 



02473 

204275 


lac 

memadr 

/last address 

02474 

544320 


sad 

BLOCl 

/ALL DONE IF EQUAL 

(^2475 

741000 


SKP 



02476 

60P467 


JMP 

TlRDB 

/SETUP block 1 

0 2 4 7 7 

750004 


LAS 



02500 

741 100 


SPA 


/CHECK ACS 0 FOR ALT 

02501 

101364 


JMS 

HAl^^ 

/gcAalt 

0 25 0 2 

504352 


ANf 

K2d^V 




Wk r, E -I 

> A I ■’ ‘A 





>'?'■ 7 4!' 2 1^0 

7“^ - -1/19 4 35 

J P 

J^P 

. JECT 

K YBRn 

SlMUi 

/start over 
/KEE'^ Lcnpi\r, 



PACE '-i 


y A n t ^ 


/ 

/SETUP EOR TPST '■> 


/ 


/ P c; 

' .'1 y '70 

S I M u 2 

Jf/S 

WRTIS 

/WRITE I’S INTO ALL OF CORE 

'/ ? e; /I 7 

1 0 2 7 7 5 


JMS 

SETrI 

/SETUP FOR block 1 

'/?S1 (. 

A ii fM 6 1 


JMP 

L0P2+3 

/WRITE BLOCK 1 

Ei ;? 5 1 1 

760 000 

/ 

BLKA2 

LAW 




544322 


S aH 

PL0C3 

/SEE IE 2 BLOCKS SELECT'^n 

1/2513 

602521 


JMP 

RLK82 

/ONLX ON^ S^L^CT^D 

02514 

1 02704 


JMS 

CKAOR 


02515 

1 03006 


JMS 

SETB2 

/SETUP 2ND block 

'/ 2 5 1 6 

/ 0 A 0 3 0 


L A C 

D0NE5 

/00NE5 = LOCATION RLKB2 

02517 

044307 


OAE 

EXIT 


02520 

600541 


JMP 

REST2+2 

/READ REST OF MEMORY 

r^2^21 

1 02775 

/ 

RLKB2 

JMS 

SETbI 

/SETUP block 1 

02522 

600567 


JMP 

FW 02 

/read block 1 LO TO HI 

02523 

103017 

/ 

Pl^C2 

JmS 

STBl 

/setup Block i 

02524 

600612 


JMP 

8AK2 

/REAO BLOCK 1 HI TO LO 

02525 

760000 

/ 

PLKD2 

LAW 



02526 

544322 


sah 

8L0C3 

/SEE IF 2 blocks SELECTED 

02527 

602534 


JMP 

RLKE2 

/ONLY ONE SELECTED 

02530 

1 03006 


JMS 

SETB2 


02531 

204031 


LAC 

D0NE6 

/D0NE6 = LOCATION BLKE2 

02532 

044307 


CAC 

EXIT 


02533 

600541 


JMP 

REST2+2 

/READ REST OF MEMORY 

02534 

103017 

y 

BLKE2 

JMS 

STRl 

/RESTORE LIMITS 

02535 

750004 


las 



02536 

741100 


SPA 


/Check acs0 for halt 

02537 

1 01364 


JMs 

halt 

/GO halt 

02540 

504352 


ANn 

K20 


02541 

740200 


SZA 



02542 

601623 


JMP 

KYBRD 


02543 

600645 


JMP 

RAK2A 

/WRITE BLOCK 1 HI TO LO 




.EJECT 





Page s 


/ 

/SETUP FOR irsT ? 
/ 


; 

1 ^ 3 >■1 7 0 

S I M U 3 

JrS 

WRTIS 

/WRITE IS into all OF CORE 

^ U 4 

1 02 Jib 


Ji/S 

setbi 

/SETUP FOR BLOCKl 

/ 2 S 4 6 

^0!'71 0 

/ 

P L K A 3 

J0P 

LOP3+3 

/WRITE BLOCKl 

? =-■ 4 7 

7 A 4 ;4 3 2 

LAP 

nONE7 

/D0NE7 = LOCATION BLKB3 

2 S S 

■M4 30 7 


OAC 

EXIT 


7 / - 5 1 

760000 


L A vj 



7 2 G 5 7 

544322 


SA^i 

PL0C3 

/SEE IF 2 blocks selected 

U 2 5 5 3 

602557 


jmp 

RLKB3 

/NO 

M 2 5 5 4 

1 07704 


JMS 

CKAOR 


/■2555 

1 0 3 0 0 6 


J0S 

SETB2 

/SETUP FOR BLOCK 2 

1^2556 

^00541 

/ 

RLKB3 

J0P 

REST2+2 

/READ BLOCK 2 

2 5 5 7 

1 07775 

JHS 

setbi 

/SETUP FOR BLOCK 1 

(?)256(^ 

600764 

/ 

RLKC3 

Ji-IP 

FWD3-3 

/rfao block 1 again 

M 2 5 6 1 

7 0 4 0 3 3 

LAC 

nONE8 

/D0NE8 = LOCATION BLKD3 

02562 

^44307 


OAC 

EXIT 


02563 

760000 


LAW 



02564 

544322 


SAH 

BLOC3 

/SEE IF 2 BLOCKS SELECTED 

02565 

602567 


JMP 

RLK03 

/NO 

02566 

502555 

/ 

RLKD3 

J^1P 

BLKB3-2 


02567 

750004 

LAS 



02570 

741100 


SPA 


/CHECK ACS 0 FOR halt 

02571 

101364 


JMS 

halt 

/GO halt 

02572 

504352 


AiViO 

K20 


02573 

740200 


Si?A 



02574 

601623 


JMP 

KYBRD 


02575 

704344 


LAC 

RITN 


02576 

544405 


SAP 

K 400 K 

/DONE 18 BITS IF EQUAL 

02577 

602544 


JMP 

SIMU3 

/START over 

02600 

744010 


RCL 



02601 

044344 


OAC 

bitn 

/NEXT starting POSITION 

02602 

107775 


JMS 

setbi 

/SETUP FOR block 1 

025t33 

600712 


JMP 

L0P3 + 5 

/write block 1 




.EJECT 





PACE - 


< A T; 1 S 


/ 

/ S r T ! j P F ' p T - SI I 



^ yl 3^70 

S I 0 U 4 

vJ 

w R T 1 S 

/RPI^e is i\to all qf cope 

'26 J'~ 

^ 02 775 


JMS 

setbi 


1/ 2 6 ■/! 6 

1 44273 


r / M 

cntrl 


2 6 J 7 

0 1 0 4 6 


J -1 

L0P4+3 

/WRITE PLoPK 1 Ln To HI 

2 ^ 1 i ; 

704:^34 

/ 

RLKA4 

L a7 

nONEp 

/D0NE9 = LOCATION BLK84 

J 2 6 1 1 

i' 4 4 3 0 7 


n A ' ' 

EXIT 


i^261? 

1 02775 


J0S 

setbi 


J2613 

^01133 


JMp 

RBLK4 

/REAP BLOCK 1 LO TO HI 

P26l4 

7 0 4 3 5 

/ 

BLKB4 

L A C 

nONl0 

/DON10 = location BLKC4 

M2615 

044307 


PiAP 

EXIT 


/261^ 

1 03017 


JHS 

STRl 

/setup For block i 

i^26l7 

■^01165 


JMP 

RAK4-3 

/REAR BLOCK i HI TO LO 

(?) 2 6 2 2 

704036 

/ 

RLKC4 

L A P 

nONll 

/DON11 = lOCaT 1 ON RLKD4 

:^2621 

044307 


Hap 

EXIT 


02622 

7 6 0 0 0 


i.. A p 



02623 

544322 


SAP 

RL0C3 

/see IE 2 BLOCKS SELECTEO 

0 2 6 2 

602630 


JMP 

RLKD4 

/NO 

02625 

1 02704 


JMS 

CKADR 


02626 

103006 


JMS 

SETB2 

/SETUP FOR block 2 

02627 

600541 


JMP 

REST2+2 

/REAR BLOCK 2 


/ 

.EJECT 



P'4 G E 4 G \ 4 



■ ' . > 7 3 

/ 

3lKD4 

1 A-: 

''’NTkI 


- ' ' ' 

■ *0 


■•• 



'' ■■ ' ' 

■' .‘':^93 7 


iri- 

PL'^EA-l 

/WRITE HI TO LO 

' ^ G ■? 

' 'i 3 1 


f' 3 i 



,V63^ 

44273 


n A r 

CNTRL 


■" 2 6 3 G 

1 .17 775 


J0S 

setbi 

/SETUP FOR block 1 

^''26 3^ 

6 3 1/14 6 

/ 


L0P4+3 

/WRITE complement LO TO HI 

.'^ 2 ^7 

'44274 

HAG 

PAIR 


>1 2 '' 4 

1 0 3 3 1 7 

RLKE4 

JMS 

STBl 

/setup BLOCK 1 

^2641 

601224 

/ 

BLKF4 

JMP 

L0P4A-1 

/WRITE BLOCK 1 HI TO LO 

.'12^4? 

704037 

LAG 

00N12 

/D0N12 = LOCATION BLKG4 

3 26 4 3 

{^44307 


DAC 

EXIT 


.'2644 

760000 


LAW 



’2646 

544322 


SAG 

RLoC3 

/SEE IF 2 BLOCKS SELECTED 

■''*2 6 4 6 

602650 


JMP 

BLKG4 

/NO 

i'264 7 

604033 

/ 

RLKG4 

JMP 

DONll-3 

/READ BLOCK 2 

5'265i3 

204040 

L A G 

D0N13 

/D0N13 = LOCATION BLKH4 

{32651 

344307 


DAC 

EXIT 


32652 

1 07775 


JMS 

setbi 

/SETUP block 1 

3 2653 

704273 


LAC 

CNTRL 


■ ’26 5 4 

7 4 0 0 1 


cma 



3265^ 

601134 

/ 

RLKH4 

JMP 

RBLK4+1 

/READ BLOCK 1 LO TO HI 

3 26 5 6 

2. Vi 041 

LAC 

00N14 

/D0N14 = LOCATION BLKJ4 

.' 2 6 5 7 

344307 


DAC 

EXIT 


72663 

204273 


LAC 

CNTRL 


3 2 6 61 

344274 


DAC 

PATR 


2 2 6 6 2 

10301 7 


JMS 

STBl 


02663 

601170 

/ 

BLKJ4 

JMP 

BAK4 


2 2664 

704042 

LAC 

D0N15 

/DON15 = =LOCATlON BLKL4 

02665 

044307 


DAC 

EXIT 


02666 

760000 


LAW 



02667 

544322 


Sad 

BL0C3 

/SEE IE 2 BLOCKS SELECTED 

02670 

607672 


JMP 

BLKL4 

/NO 

3 2 6 71 

604033 

/ 

RLKL4 

JMP 

DONll-3 

/READ BLOCK 2 

09672 

704273 

LAC 

CNTRL 


02673 

741 201 


SNA : CMA 



02674 

602637 


JMP 

BLKE4-1 

/WRITE COMPLEMENT HI TO LO 

02675 

750004 


LAS 



02676 

741100 


SPA 


/CHECK ACS 0 FOR HALT 

02677 

1 01364 


JMS 

malt 

/GO halt 

0 2 7 0 0 

504352 


AND 

K20 


2 7 0 l 

740200 


S2A 



3 2 7 0 2 

601 623 


JMP 

KYPRO 


.'2 70 3 

602604 

/ 

JMP 

S 1 MU4 




.EJECT 





PAGE ^ 


) 


) 


) 


) 


X A fits 


/ ? 7 .1 

' ;/1 ' 1 'Cl 0 

G K A D P 

0 



7 ? 7 v1 s 

;:A4 S?2 


LA'' 

PLnC3 


1 . 7 7 .■! ^ 

-C4:'X.101 


CM A 



.V 7 ,1 7 

344346 


TAP 

K1 


>4271 

344323 


TAP 

8L0C4 


2 7 1 1 

/ 4 0 1 0 0 


SMA 


/IST IS >2ND IF SKIP 

i^271? 

^2?704 


JMP« 

CKADR 

/EXIT 

1^2717 

? 0 4 3 ? 2 


LAG 

RL0C3 


P'2714 

P43737 


PAG 

CRLF 


P'271'5 

204323 


LAC 

RL0C4 


P'2716 

4 3 2 2 


DAC 

BL0C3 

/REVERSE BLOC3 AND BL0C4 

P^2717 

203737 


LAC 

CRLF 


(4272^^ 

■.'44323 


OAC 

RL0C4 


14 2 7 2 1 

622704 


JMP* 

CKADR 

/EXIT 

02722 

000000 

/ 

SETBAK 

0 



0272:5 

?0430l 


LAC 

lasti 

/LAST TO test 

02724 

('44340 


OAC 

patbnk 


02725 

044276 


0 A C 

SVADR 


02726 

P44377 


XOr 

K7777 


02727 

044275 


OAC 

memadr 


02730 

770000 


LAW 

“10000 


02731 

044277 


OAC 

CT4K 


02732 

622722 

/ 

JMP* 

SETBAK 


02733 

000000 

/ 

SETl 

0 



02734 

204300 


LAC 

F IRSTl 


02735 

044275 


OAC 

memadr 


02736 

4 4 3 4 0 


OAC 

patbnk 


02737 

770000 


LAW 

“10000 


02740 

044277 


OAC 

CT4K 


02741 

622733 


JMP* 

SETl 


0274? 

000000 

f 

CKBAK 

0 



02743 

204275 


LAC 

memadr 

/LAST address 

02744 

504403 


ano 

K70K 

/MASK BITS 3»4»5 

02745 

043737 


OAC 

CRLF 

/SAVE 

02746 

101360 


JMS 

where 

/SEE where program is 

02747 

543737 


SAD 

CRLF 

/NEXT HAS PROGRAM IF EQUAL 

02750 

741000 


SKP 



02751 

622742 


JMP* 

CKBAK 

/EXIT 

0275? 

102765 


JMS 

nxbak 

/SEE IF CURRENT IS LAST 

02753 

602756 


JMP 

.+3 

/SUBTRACT 4K 

02754 

442742 

NONE 

IS? 

CKBAK 

/RETURN *1 

02755 

622742 


JMP» 

CKBAK 


02756 

770000 


LAW 

-10000 


02757 

044277 


OAC 

CT4K 


02760 

344276 


TAD 

SVADR 


02761 

044276 


DAC 

SVADR 

/NEXT FIELD 

0276? 

244377 


XOR 

K7777 


02763 

044275 


OAC 

memadr 


02764 

602743 

/ 

JMP 

CKBAK+1 

/CHECK NEW FIELD 



/ 

. EJECT 





^ G E '* ' A f ) ' - 


/ 




/CHECK 

/ 

N X H A K 

FOR LAST 

EIFLO 

/ 21b ^ 

■' •^ -7 00 

0 


21 bb 

75/ /P 4 


LAS 


/ ? 7 6 7 

^41100 


SPA 


/277C 

1 01364 


JMS 

malt 

2211\ 

774276 


LAC 

SVADR 

{A211'^ 

64/300 


SAD 

FIPSTl 

0 2 7 7 7 

b 


JMP 

NONE 

y' ? 7 7 

607756 


JMP 

NONE+2 


/ 

/SETUP addresses FOR 1ST BLOCK 
/ 


02775 

.'00000 

setbi 

0 


0 2776 

204320 


LAC 

MLOCl 

02777 

■M4275 


DAC 

memadr 

03000 

740001 


CMA 


■'3001 

344346 


TAO 

K1 

0 3 0 0 2 

744321 


tad 

RL0C2 

0 300 3 

740001 


CMA 


0 30 0 4 

i'M 4 2 7 7 


DAC 

CT4K 

73005 

622775 


JMP* 

SETBI 


/ 

/SETUP ADDRESSES FOR 2ND BLOCK 
/ 


0 30 0 6 

7 0 ,1000 

SETB2 

0 


03007 

2'M322 


LAC 

RL0C3 

0 3010 

( 44275 


DAC 

memadr 

03011 

747001 


CMA 


03012 

344346 


Tad 

K1 

03013 

344323 


TAD 

BL0C4 

03014 

7 4 0 0 01 


CMA 


03015 

044277 


DAC 

CT4K 

03016 

627006 


JMP* 

SETB2 


.EJECT 


/CHECK ACS 0 FOR HALT 

/NO MORE TO test 
/SETUP FOR NEXT 

LO TO HI 

/IST address 

/2'S COMPLEMENT 
/subtract BLOC2 
/COMPLEMENT RESULT 

/EXIT 

LO TO HI 

/iST address 

/2*s complement 
/SUBTRACT 

/EXIT 



P A n F 4 


X Ai 


/ 

/SFTu'P HLOCK 1 aPORESSFS FOR HI TO LO 


/ 


'■3 '-'I 7 

■ ^ r 7 0 0 

3TPl 

V; 



1-; 3 F ? 7 

7 3 4321 


LAC 

pLOC? 

/last address 


4 4 2 7 5 


DAC 

memaor 


'/j 3 F P '7 

0 4520 


LAC 

PLOCl 


n 3 F ? 3 

7 4 7 0 1 


CMA 



F 3 0 2 4 

344346 


tao 

31 

/2 'S complement 

1^3023 

344321 


T An 

RL0C2 

/subtract 

133026 

740001 


CMA 



03027 

M 4 2 7 7 


OAC 

CT4K 


0 3030 

^ 2 3 0 1 7 


JMP» 

STBl 




/ 

/Setup 

/ 

BLOcK 2 

ahdResses for hi 

TO LO 

03031 

,00000 

STR2 

0 



03032 

P04323 


LAC 

RL0C4 

/last address 

03033 

f/ 4 4 2 7 5 


DAC 

memadr 


03034 

204322 


lac 

RL0C3 


0303S 

740001 


CMA 



03036 

344346 


Tad 

K1 

/2’S COMPLEMENT 

03037 

344323 


tad 

RL0C4 

/subtract 

03040 

740301 


CMA 



03041 

044277 


DAC 

CT4K 


0304? 

623031 


JMP* 

3TB2 



/ 

.EJECT 



A G E 


y AT. 1 


/ 




' r K R A T F 

u 1 ary 

ARURESS EPOM 

K E Y R 0 A R U INPUT 

1 y 

' ■ ■>■0 0 

GENA ]R 

0 



1' 3 G A 

4 ,-1 1 


X c 

ROTA 

/XCT A LAW MINUS X. 

./] 3 E 4 5 

4 4 .n 1 


RAC 

nrota 


3 (A 4 A 

,'14 344 


LAC 

R I TN 

/INPUT NUMBER 

^13^^47 

'^ 44311 

''NROT 

IS7 

NROTA 

/SHIFT COUNT+1 

GI30'5i‘ 

>^03066 


jmp 

GOLEET 

/rotate 1 LEFT 

f4 3 (4 5 1 

744306 


XUR 

aorcw 

/XOR WITH partial address 

1-13'^? 

4 4 3 0 6 


RAC 

ADRCW 


0 3 5 3 

777777 


L A.^ 

-1 


1'' 3 5 4 

564010 


S A 0 » 

rota 

/DONE DIGITS IE EQUAL 

03055 

603060 


JMP 

. + 3 


03056 

444010 


I 3/ 

rota 

/LAW POINTER+1 

03057 

^ 2 0 1 4 3 


JMP « 

genadr 

/GO Wait for next 

0 3 0 6 0 

704011 


LAC 

ROTB 


0 30 61 

044010 


RAC 

ROTA 

/RESTORE LAW POINTER 

0306? 

474010 


XCTi» 

rota 

/GET THE LAWS 

03063 

V ■ 4 4 3 1 1 


RAC 

nrota 


03064 

4 4 7 .4 4 3 


IS? 

genadr 

/RETURN+1 

03065 

'•23043 

/ 

JMP* 

genadr 

/EXIT 

03066 

744010 

/ 

GOLEET 

RCL 



03067 

603047 

/ 

JMP 

CNROT 




/ 

/ROUTINE 

y 

TO RRITE 

I’S INTO ALL 

OF memory 

03070 

0 ',4 0 0 0 0 

/ 

WRTlS 

0 



03071 

204300 


LAC 

FIRSTl 


0307? 

044275 


RAC 

memadr 


03073 

'44276 


DAC 

SVADR 


03074 

770000 


LAW 

-10000 


03075 

iM 4 2 7 7 


RAC 

CT4K 


03076 

74400? 


STL 



03077 

101?76 


JMS 

CBANK 

/SEE IF IT HAS PROGRAM 

03100 

741000 


SKP 


/NO 

03101 

623070 


JMP» 

WRTlS 

/EXIT 

0310? 

777777 

RITE 

LAW 

-1 

/AC=777777 

03103 

^^64275 


DAC* 

memadr 

/WRITE 

03104 

444275 


IS? 

MEMADR 

/ADDRESS+1 

03105 

444277 


IS? 

CT4K 

/done 4K when 2ER0 

03106 

603103 


JMP 

.-3 


03107 

744002 


STL 



03110 

101344 


JMS 

NXTBNK 

/SETUP FOR next 




.EJECT 





PAGE G " 


X A m 


'<AD15 - TA^'P 4 



• '3 

GlTINE TO 'ETE 

4MINr FIELD 

'311 ' 

' ■'4 ,'4 3 

0 V L LA 0 

FRTBL 

^■4 311? 

4 4 3 2 5 

OAf' 

ERWRO 

M 3 1 1 3 

P 3 4 3 01 

LAC 

lasti 

/3114 

F 4 4 3 v'’ 0 

SAD 

FIRSTI 

031 1'^ 

^ 40221 

JMp 

RTNi 

03116 

9 ;i4 2 70 

LAC 

FLAGS 

03117 

741100 

SPA 


03120 

600221 

J,vtP 

RTNl 

0 3121 

740020 

PAR 


03122 

741400 

S2L 


03123 

603210 

JMP 

NXTMV 

03124 

444270 

IS/ 

FLAGS 

0312^ 

204301 

Lac 

LaSTI 

03126 

CM 4 2 7 1 

DAC 

inselo 

03127 

770000 

LAw 

“10000 

03130 

344271 

TAD 

insfld 

03131 

044312 

DAC 

NXLOC 

03132 

101360 

JMS 

where 

03133 

544271 

SAP 

INSELD 

03134 

603173 

JMP 

suei 


FOR Relocation 


/last to test 
/DON'T MOVE IF EQUAL 
/RETURN 

/PROGRAM FLAGS 
/FORGED MOVE MADE IF A 1. 
/DON'T MOVF 
/LINK = PIT 17 
/FIRST MOVE IF SKIP 
/setup for next MOVE 
/set flag for 1ST MOVE 
/LaS=% NERcURReNT field 

/-4K 

/SUBTRACT 4K FROM CURRENT 
/NXLOC = DEST'N for NEX" TIME. 

/where are we now 

/ALREADY IN LAST 1 IF EQUAL 
/TRY NEXT LOWER 


.EJECT 



£ ^1 


X A I'l 1 


/ 

/■fylOW CHECK f-'OR E'-'ROR RECORDED IM ^JER FIELD 




/ 

1 / " 

7n . 7 77 

C K F_ R R 

P 3 1/^ 

■•.'.^•3 25 


/31. 37 

^■-0X150 


7 314 / 

2 4 3 25 


0 314 1 

544271 


i/131 4P 

603162 


P 3 1 4 < 

444325 


03144 

204325 


/ 3 1 4 H 

4 4 0 4 4 


0 314 ('■ 

741000 


7314 7 

•' 0 314 0 

/ 

0313'' 

7 0 4 0 4 3 

STMV 

0 3151 

1/' 4 4 3 2 5 


03152 

2 '0 4 2 7 1 


03153 

044314 


03154 

1 11360 


'03155 

044313 


03156 

544314 


03157 

600221 


0 316 0 

204314 


0 3161 

603325 

/ 

/error 

/ 

0316? 

544300 

equal 

03163 

603205 


03164 

741200 


03165 

603171 


03166 

770000 


03167 

344271 


0 317 0 

044312 


03171 

204043 


03172 

044325 

/ 

03173 

204312 

SUBl 

03T74 

544271 


03175 

603162 


03176 

044271 


03177 

544300 


03200 

603135 


03201 

770000 


03202 

344271 


03203 

044312 


03204 

603135 

/ 

03205 

204043 

DNMVE 

0 3 2 0 6 

044325 


0 3 2 0 7 

<^00221 

/ 


L A 


S A L 

ERWRD 

JMP 

STMV 

LAC« 

FRWRO 

SAD 

INSFLD 

JMP 

equal 

IS? 

ERWRD 

LAC 

ERWRD 

SAD 

ENERR 

SKP 


JMP 

CKERR + 3 

LAC 

ERT8L 

DAC 

ERWRD 

LAC 

INSFLD 

DAC 

destn 

JMS 

where 

DAC 

SOURCE 

SAD 

DESTN 

JMP 

RTNl 

LAC 

DESTN 

JMP 

MOVE 


IN NEW FIELD. TRY NEXT LOWER 


SAD 

FIRSTl 

JMP 

DNMVE 

SNA 


JMP 

. +4 

LAW 

-10000 

tad 

INSFLD 

DAC 

NXLOC 

LAC 

ertbl 

DAC 

ERWrD 

LAC 

NXLOC 

SAD 

INSFLD 

JMP 

equal 

DAC 

INSFLD 

SAD 

FIRSTl 

JMP 

CKERR 

LAW 

“10000 

TAD 

INSFLD 

DAC 

NXLOC 

JMP 

CKFRR 

LAC 

FRTBL 

DAC 

ERWRD 

JMP 

RTNl 

.EJECT 



/NO ERRORS IF = LAW 

/initialise move 
/error in field if equal 

/POINTER + 1 

/END OF Table if equal 


/RESTORE POINTER 
/NEW FIELD 


/NEW and current ARE EQUAL 
/MOVE PROGRAM 


/DON’T TRY NEXT IF EQUAL 

/IS IT FIELD 0 

/YES 

/-4K 

/subtract 4K from new field 

/NEXT NEW field 

/restore pointer 

/NEXT new field 

/IS IT = CURRENT NEW FIELD 

/TRY NEXT lower 

/NEW NEW Field 

/DOES IT = lowest FIELD 

/CHECK FOR error 

/subtract 4K 

/NEW FIELD FOR NEXT PASS 


/restore POINTER 
/START over 



page 


'X A ' 1 


/ROUTINE TO 'ETE^min^ PROGWaM oeST'N AETeR MAKING ONE MOVE 


'301 ' 

' '1 X 6 0 

N X T M V 

J ■'! 6 

-/here 

/where is PROGRAM NOW 

■'.SPl 5 

4 4 3 1 3 


0 A 1 ; 

source 


3 ? 1 - 


OKNXT 

LA,. 



'■ 3 ? 1 3 

-64325 


S A ' » 

erwrd 

/NO ERRORS IE iST = LAW 

^32l4 

- ^0^27 


JMP 

STNxT 



p 0 4 ’,'1 4 3 


LAC 

ertbl 


3 ? 1 ^ 

44325 


OAC 

ERWRD 


i"32l7 

; 2 4 3 2 5 


LAC* 

erwrd 

/GET an error ADDRESS 

0322“" 

^ 4 4 3 !_ 2 


SAO 

NXLOC 


03221 

^''13247 


JMP 

SUR2 

/error in next FIELD TF'^ NEXT 

0 3 2 2 2 

•'M 4 3 2 5 


IS? 

ERWRD 


0 3 2? 3 

704325 


LAC 

ERWRD 


03224 

■x 4 4 3 4 4 


SAO 

ENERR 


0322^ 

■'41000 


SK(^ 


/DONE Table and no errors 

03226 

603217 


JMP 

CKNXT+5 


03227 

204043 

/ 

STNXT 

LAC 

ertbl 


03230 

'M4325 


OAC 

ERWRD 

/RESTORE POINTER 

0 3231 

204312 


LAC 

NXLOC 

/NEW FIELD 

0323? 

544271 


SaD 

INSFLD 

/DOES IT = CURRENT FIELD 

03233 

603236 


JMP 

. +3 


03234 

544300 


SAD 

EIRSTI 

/Does it = lowest field 

0323S 

603264 


JMP 

MVBK 

/YES. CLEAR FLAGS AND MOVE 

03236 

644300 


SAD 

FIRSTi 

/DOES The CURRENT ALSO= 






/THE LOWEST FIELD. 

03237 

603260 


JMP 

NXTHI 

/yes. setup for HIGHEST FIELD 

03240 

;'44271 


DAC 

INSFLD 

/NEW CURRENT FIELD 

03241 

770000 


LAW 

-10000 

/-4K 

03242 

344271 


TAD 

INSFLD 


03243 

V044312 


DAC 

NXLOC 

/NEW NEXT FIELD 

03244 

204271 


LAC 

INSFLD 


03245 

044314 


OAC 

DESTN 


03246 

603325 


JMP 

MOVE 

/MOVE FROM HERE TO C (DESTN) 

03247 

204312 

/ 

SUB2 

LAC 

NXLOC 


03250 

644300 


SAO 

FIRSTi 

/IS NEXT = FIELD 0 OR 1 ST TO TEST 

03251 

603205 


JMP 

DNMVE 

/YES. DON'T MOVE 

0325? 

770000 


LAW 

-10000 

/-4K 

03253 

344312 


TAD 

NXLOC 

/new next field 

03254 

044312 


DAC 

NXLOC 


03255 

544271 


SAD 

INSFLD 

/DOES IT = CURRENT FIELD 

03256 

603250 


JMP 

SUB2+1 

/YES 

03257 

603215 


JMP 

CKNXT+3 

/SEE IF ERROR IN NEW FIELD 


/ 


.EJECT 



'AGE *7 3 


VAGI'- 


' ' 3 ? 6 1 ' 

' S01 

N X T H I 

L A (• 

■' 3 ? 6 1 

-' 7 ■! 4 7 3 


A w ; 1 

f 3?6G 

'• - 31 2 


hag 

‘■MPh 3 

- 7 s 7 1 5 

/ 


0 3 ? 6 '- 

1^1360 

VBK 

J0S 

0 3 ? 6 G 

' 44313 


HAT 

0 3 ? 6 0 

- 0 4 3 1 2 


L AC 

0 3 ? 6 7 

■ 4 4 2 7 1 


DAT 

i'l 3 7 , ' 

.44314 


DAC 

3 P 7 1 

144270 


nzfC 

0 3 P 7 - 

^'33325 


.JMP 

.EJECT 


LAST1 

K7f=iK 

/LAST 

TU TEST 

NXL UC 

/LAST 

= NEXT FIELD 

C K N X T ■*■ 3 

/CHECK 

FOR ERROR 

WHERE 

SOURCE 

NXLOC 

INSELO 

OESTN 

FLAGS 

MOVE 
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V A G 1 h 


/ROUTINE TO f-'OPcr MOVE the PROGRAM. DESTINATION 
/EIELD« moot HP TYPEO IN BY THE OPpRiTOR (0-7 OCTaL). 


/ 



"I ./) 4 4 ^ 

E C D M V 

L A 1 ' 

K 400 K 



7 4 I'j 0 1 


DMA 



0 3 ? 7 5 

6 .1 4 2 7 0 


A M 

FLAGS 


0 3 ? 7 P 

744405 


X UP 

K400K 

/SET SIT 0 FOR FCOMV FLAG 

0 3 7 7 7 

744270 


0 A C 

FLAGS 


0 3 3 0 0 

704043 


LAO 

ERTBL 


0 33 01 

744325 


DAO 

erwrd 

/RESTORE Table pointer 

0 3 3 0 7 

103426 

/ 

/check 

/ 

CKECn 

JMS 

goto 

/PRINT GO TO FIELD 



FOR E^^ROR 

IN NEW FIELD 


03303 

760000 

LAW 



03304 

664325 


S AD* 

erwrd 

/NO ERRORS IF 1 ST = LAW 

0330>^ 

603321 


JMP 

WHWaY 

/SEE where to go 

0 3 30 6 

224325 


L AC<» 

erwrd 


03307 

544314 


S A 0 

destn 

/DOES error = NEW FIELD 

03310 

603316 


JMP 

XPRT 

/YES, print message 

03311 

444325 


IS? 

ERWRD 

/PO I NjER+l 

0331? 

204325 


LAC 

ERWRD 


03313 

544044 


SAL) 

ENERR 

/SEE IF END OF TABLE 

03314 

603317 


JMP 

.+3 

/DONE AND NO ERRORS 

03316 

603306 


JMP 

CKFCD+3 


03316 

1 03404 

XPRT 

/ 

JMS 

prsel 

/PRINT error in Selected 4 k 

03317 

204043 

LAC 

ERTBL 


03320 

044325 


DAC 

ERWRD 


03321 

204314 

whway 

LAC 

DESTN 

/NEW FIELD 

03322 

544313 


SAD 

SOURCE 

/DOES IT equal PRESENT 

03323 

600221 


JMP 

RTNl 


03324 

044271 

/ 

DAC 

INSFLD 

/NEW current field 



.EJECT 





'^''UTINt TO -FLn^'ATF. THE PROGRAM 


/ 


' ' :■■ ' 

' '.’■■■■) A 

‘ 0\/E 

M / 

LOCER 


3 3 '■ ' 

'^'0 


L ... A 

- 1 0 0 0 0 

/-4K 

' < 3 ” 

, 4/77 


r 1 - f ; 

CT4K 

/4K counter 

' 7 • 

■ '4313 


LAC 

SOURCE 

/current field 

v> 's ■ 3 ' 

■ - 4 3 1 6 


n AC 

MOVES 


■ 3 3 3 

’4314 


LAC 

PESTN 

/NEW FIELD 

333 

4 4 3 1 5 


CAC 

MOVED 


3 3 3 3 ■■ 

4 316 

f'^OSOM 

L AC» 

MOVES 

/MOVE FROM CURRENT 

' ? 3 3 S 

'44 345 


n AC 

TNUM 

/SAVE 

S 3 3 3 

.,-.7413 


JHS 

RT19L 


■ .5 3 3 

64315 


HAC* 

MOVED 

/PUT IN NEW FIELD 

■33 43 

'^?4315 


LACtt 

MOVED 

/READ BACK 

3334 ' 

"^64316 


SAOft 

MOVES 

/COMPARE 

i'l 3 3 4 F 

7 A" 400 


SKP 


/OK 

1^3343 

103610 


jms 

mverr 

/PRINT error INFO 

3 3344 

4443 1 6 


IS^ 

MOVES 

/INCREMENT ADDRESSES 

3 3 4 

4 4 4 S 1 5 


ISZ 

MOVED 


3 3344 

444 -77 


IS? 

CT4K 


3 3347 

■'■ 4 1 0 0 


SKP 



0 3 3 51'^ 

6^7376 


JMP 

DIND 


f'l 3 3 5 1 

"44345 


LAC 

TNUM 


'335 - 

6 4 '.,10 2 


Sap 

PLMT 

/DELIMITING CHARACTER 

3 3 3^3 

7 4] 100 


SKP 


/adjust indirects 

14 ,3 3 5 4 

4 0-5334 


JMP 

MOSOM 


3 3 5'^ 

764316 

AJ IN 

LAC* 

MOVES 


"3356 

"44064 


SAD 

dlmta 

/DONE indirects IF EQUAL 

^\3357 

^■03335 


JMP 

MOSOM+i 


'43363 

604377 


AND 

K7777 

/MASK address BITS 

14 3 3 6 1 

644314 


XOR 

OESTN 

/PUT FIELD number ON IT 

14336? 

103413 


JMS 

RT19L 


^43363 

064315 


DAC* 

MOVED 

/PUT IN NEW FIELD 

(43364 

224315 


LAC* 

MOVED 

/READ BACK 

3336 ''' 

604377 


AND 

K7777 


i;43366 

244313 


XOR 

SOURCE 


03367 

664316 


SAD* 

MOVES 

/compare 

03370 

741000 


SKP 


/OK 

03371 

1 03510 


JMS 

mverr 

/PRINT error INFO 

03372 

444316 


IS? 

moves 

/increment addresses 

03373 

444315 


IS? 

MOVED 


03374 

444277 


IS? 

CT4K 


03375 

603355 


JMP 

AJIN 





.EJECT 





PAGE c 


/ 



'' '1 N ■ i ^ 

I ND 

J '■- 

P NiOT 

/WAS TRaMSFER ^^AJE U»< 

? ;; ■; 

■' 7 


L di- 

df G 1 ^' L 0 

/C(RFMLO) r [_On RTNil 

< d 

-.'d 377 


a :\i id 

<7777 

/MaS< adoress 

3d - 

-*4314 


7 .j 

n E S T N 


3 d 3 9 

■ ■4 4 31 7 


D A r 

PG^LO 


341 3 

-74317 


J 'M A * 

PGMLO 

/EXIT from here to LOC 






/RTNl IN N"W EIELD 




.EJECT 






■’ . 

/PRIM L 

/ 

^'RSt L 

P R M ... IV 

'^ELECTED 4K 


■ J 

1 A ‘ 7 


j ■ ■ 

CRLE 

/ C R , L F' 

■/ ,S 

J i. /‘ n 2 


1 M 

PRPEL 

/text pointer 

.,1 ,1 7 

^.4375 


J AC 

PRMT 


■' 1 1' 

1 '/) -^ 7 0 1 


JMS 

PMXT 

/PRINT 

’3^1 '• 

1 3 7 3 7 


J M 

CRLF 


t' 3^' 1 ■’ 

■ '-'32 73 

/ 

/rotate 

/ 

RTi 9L 

J0P 

FcnMV 

/WAIT for another choice 



INSTkUCTTON 19 LEFT 

BEFORE MOVING 

■' 3^13 

777000 

0 



3 i 

744000 


CLl 


/LINK = 0 

7 j 4 1 "3 

'44345 


CAC 

TNUM 

/SAVE 

7 3 4 16 

1111 hi 


L AiN 

-11 

/-9 DECIMAL 

v13417 

7'44344 


^at 

RITN 

/SHIFT COUNT 

7 3 4? i ■ 

P04345 


L AC 

tnum 

/ I nstructhon 

3 34 21 

7 4 7 010 


PAL 



734 22 

742210 


PTL 



7 34 23 

444344 


IS? 

RITN 


7 34 24 

60342^ 


JMP 

. -2 


.7 34 26 

623413 


JMP* 

RT19L 



.EJECT 


/ 



V'.jOA«n ^Oi'TlNr rOR rORCFD RFLOCATIO^' 



■ ^ ' v-' 0 






.1 3 4 7 

75 i' .'04 


L 4 S 



/RF AD ACS 

^'3437 

5 .I 4353 


A -'JR 

K40 



'343 1 

741700 


S'^A 



/CHECK bit 1? 

-'343? 

'^03444 


J M P 

NOSW 


/EQUALS 0 

^343 3 

V7 7 3 7 


jmR 

CRLF 


/CR . LF 

'33434 

V 0 4,-145 


LAC 

PTWLV 


/TFXT pointer 

3343^ 

744305 


OAC 

PRNT 



3 3 4 3 ^ 

103701 


JMS 

PNXT 


/PRINT PUT ACS 12 ON A 0 

33437 

7 5 .? >1 0 4 


LAS 




3 4 4 1' 

s 4 353 


AN)'> 

K40 



■/ 3 4 4 1 

740200 


Szf A 



/WAIT FOR the 0 

3344? 

603437 


JMP 

. -3 



73443 

1 03737 


JMS 

CRLF 


/CR,LF X 2 

^13444 

103737 

NOS^ 

JMS 

CRLF 



7 34 4'^ 

704046 


LAC 

GOFL 


/TEXT POINTER 

,\5 4 4 R 

t 44305 


OAC 

PRNT 



73447 

1. 0 3 7 0 1 


J' 0 S 

PNXT 


/PRINT GO TO FIELD - 

'/ 3457 

102272 


JMS 

KEVIN 


/WAIT FOR INPUT 

73451 

544360 


SAD 

K215 


/A CR = NO FORCED MOVE 







/and resume AUTO relocate 

0 3 4 5 7 

503503 


JMP 

CFLG 


/CLEAR the forced MOVE FLAG 

0 3 4 53 

740020 

/ 

RAR 



/not = RO OR CR, SO IT 







/MUST PE A number 

03454 

742020 


rtr; 

rtr; 

rtr 


03455 

742020 






0345^ 

742020 






03457 

504403 


AND 

K70K 


/MASK 3,4 and 5 

03460 

044314 


DAC 

DESTN 


/NEW FIELD 

03461 

1 01360 


JMS 

where 


/WHERE ARE WE NOW 

03462 

P' 4 4 3 1 3 


DAC 

SOURCE 


/current FIELD 

03463 

103737 


JMS 

CRLF 


/CR, LF 

03464 

623426 


JMP* 

GOTO 


/CHECK FOR ERROR 



/ 

.EJECT 








X A i ’ 1 '-■ 


3 ‘i ; - • 

1 v1 0 0 

FNOT 





? ■ ’> ;<; s 4 0 


L 4 " 

LOCER 


'34f . 

7 4 1 ? 0 0 


,i 


/ ^; 0 f H R 0 4 s I " 0 

3 4V. 

.'-77465 

/ 

! <<■ '•> 

K 

/ E X T F R L F FIELD 

r' 3 4 7 7 

1 4 .7 5 4 0 

V f ’■ 

LOteR 


3 3 4 7? 

103737 


J'-'S 

CRLF 

/CR » LF 

3 3 4/3 

? 0 4 v'l 5 0 


LAC 

MERN 

/TFXT POl'MER 

3 3 4 7 4 

0' 4 4 30 5 


n AC 

PRNT 


7347^ 

1 03701 


J05 

PiMXT 

/PRIMT NO '^ORE ERRORS 

f-' X 4 ? ^ 

1 03737 


JMS 

CRLF 

/CR.LF 

'3477 

■ 04 270 


LA*'' 

flags 


■ 3 3 0 

741100 


?P A 


/ACS 0 A 1 = FORCED MOVE 

'-'■351^1 

<303273 


J '-I P 

FCDMV 

/wait FOR another choice 

-■350? 

^03227 

/ 

CFLG 

JMP 

STNXT 

/TRY NEXT FIELD LOWER 

!.^ 3 “3 (3 3 

204405 

LAC 

K400K 


0 3 5 0 4 

740001 


CM A 



3350'^ 

h04270 


A 

FLAGS 

/CLEAR the forced MOVE FLAG 

0 3 5 0 f' 

044270 


HAf 

FLAGS 


v3‘=iH7 

600221 

/ 

JMP 

RTNl 

/START OVER 



.EJECT 





y A rn 


PAGF 6 1 


/ 



/I y V-l i-'l 0 

■ ' V f- H 




■ .S H 1 1 

■' 4 / 3 ■' 2 


; ' i i"' 

?5ADi 

/Savp ILCOPRECT instruction 

1 

'y -'1 4 3 1 5 


L_ ~ - 

^OVED 

/FIELD AND address 

t' 3 1 A 

'44303 


i ■ A r 

OCAOR 

/SAVE 


'-'24 316 


L A r » 

MOVES 

/CORRECT instruction 

!7I 3 5 1 h 

M4 304 


nAC 

COODl 

/SAVE 

f\35l6 

203746 


LAC 

PHDR 


-'3517 

‘M1200 


S vA 



J352 ■' 

1 03746 


J3S 

PHDR 


P 3 5 2 1 

203540 


LAP 

LOCER 


V1352? 

741 200 


S'^A 


/DON'T PRINT IF 1 

J3523 

1 03540 


J 0 

LOCER 

/PRINT PROGRAM RFLOCaTION ERROR 

-<3524 

203531 


LAC 

JMPl 

/JMP return 

03525 

041507 


HAG 

INnY 


03526 

1 03737 


JMS 

CRLF 


0 3 5 2 7 

777766 


L A •»-. 

-12 

/-10 decimal 

03530 

601464 


JmP 

STER 

/PRInT InFo 

03531 

603532 

JMPl 

JM“ 

. +1 


0353? 

2-01465 

/ 

LAC 

STFR+1 

/equals JMS SPING 

03533 

0 41507 


OAC 

INDY 


03534 

750004 


LAS 



03535 

741100 


SPA 



03536 

101364 


jms 

HALT 


03537 

623510 

/ 

JMP» 

MVERR 

/EXIT 

0354 0 

■0 00 000 

/ 

LOCER 

0 



03541 

103737 


JMS 

CRLF 

/cr»lf 

03542 

2040-47 


LAC 

RELoC 

/text pointer 

03543 

044305 


DAC 

PRNT 


03544 

103701 


Jf'tS 

PNXT 

/print program relocation error 

03545 

103737 


JMS 

CRLF 

/CR,LF X 2 

03546 

623540 

/ 

JMP* 

LOCER 

/EXIT and print the ERROR 

03547 

000000 

/ 

WOT IS 

0 



03550 

1 03737 


JMS 

CRLF 

/CR,LF 

03551 

760277 


LAW 

277 

/QUERY MARK 

03552 

101571 


JMS 

PCHAR 

/PRINT 

03553 

103737 


JMS 

CRLF 

/CR.LF 

03554 

623547 


JMP* 

WOTIS 

/EXIT 


/ 


.EJECT 



(■; t '' 


/ 




/ -2 0 U T 1 M E 

!■ aCCEiJ T 

TCST LIMITS F'’ ■I'l 

KEI'PCA"'; INPUT 


■ 

L ^ T S 

/ 




7 ,1 7 - 3 5 


LAC 

STLOOP-1 


" 3 5 7 

4-^ ^20 


n AC 

1 OCAT-t-4 


.'356 7 

^ ^7737 


JMS 

CRLF 

/CP,LF 

v" 3 6 1 

X 14,^53 


LAC 

TLMX 

/TEST LIMITS POINTER 

V-' 3 6 7 

." 4 4 375 


OAC 

PRNT 


■'' 3 5 6'- 

1 :i ,7 7 0 1 


JMS 

PNXT 

/PRINT "TEST LIMITS" 

'A 3 0 6 “ 

1 „ 7 7 3 7 


JMS 

CRLF 

/CR,LF 

:'35 6^- 

27 4vi54 


LAC 

SLMX 

/C ( SLMX ) =SLMTS+1 

.'XS6^ 

'44310 


OAC 

OVER 


7 3 6 7 

4 , ' 5 5 


LAC 

D0N3 

/RETURN ADDRESS=CREVR 

7 3 3 7' 

; 44307 


OAC 

EXIT 


.'3571 

1 ^2272 


JMS 

KEVIN 

/wait for INPUT 

t' 3 5 7 7 

- 4 4 3 7 4 


SAC 

K377 


73573 

n :i,<556 


JMP 

SLMTS+1 


(■; 3 5 7 4 

102301 


JMS 

LEGAL 

/SEE IF valid 

7 3^73 

’ 4 34 4 


LAC 

PI TN 

/ASCII INPUT 

7 3 5 7 6 

504350 


A iM 0 

K7 

/MASK 15.16 AND 17 

73577 

■’44020 


rcr; 

RTR; RTR; 

RTR 

7 3 6 0 7 

7 a:-0 20 





i-'l 3 6 01 

-,-7.1 20 





0 3 6 0? 

■ ’ 4 7 0 20 





0 3 6 0 3 

'■'.4300 


OAC 

FIRSTI 

/FIRST TO TEST 

0 3 6 0 4 

1 .12 2 72 


JMS 

KEVIN 

/WAIT FOR COMMA 

0 36 0'^ 

- 4 4 3 6 1 


SAC 

K254 


0 3 6 0 6 

741000 


SKP 



03607 

602312 


JMP 

OUERV 

/PRINT QUERV, and RESTART 

03610 

102272 


JMS 

KEVIN 

/wait for last 

03611 

544374 


SAO 

K377 


03612 

603556 


JMP 

SLMTS+1 


03613 

1 02301 


JMS 

LEGAL 

/SEE IF valid 

03614 

204344 


LAC 

BITN 

/ASCII INPUT 

03615 

504350 


AND 

K7 


03616 

744020 


RCR; 

RTR; RTR; 

RTR 

03617 

742020 





03620 

742020 





03621 

742020 





03622 

■ '44301 


DAC 

LASTl 

/last do test 

03623 

777777 


LAW 

-1 


03624 

(’44277 


DAC 

CT4K 


03625 

444277 

CREVR 

Is? 

CT4K 

/NO 2ND DIGIT IF NO SKIP 

0 36 2 6 

602312 


JMP 

QUERV 

/PRINT QUERV AND RESTART 

0 3 6 2 7 

204300 


LAC 

FIRSTl 

/FIRST FIELD 

036,30 

740001 


CMA 



' 3 6 3 1 

344346 


tap 

Kl 

/2’S COMPLEMENT 

. 3 6 32 

344301 


Tap 

LASTl 

/FIRST IS >LAST IF NFG. 

03633 

■’4^100 


SMA 



,'3634 

^ 0 3 6 4 3 

/ 

JMP 

OKAS 

/FIRST IS LOWEST ORDER 



. t JECT 





PAGE 6 


X 


■ 1 


/ 7, h 6 - 

-' ' 4 ^ ■' ' 


1 -i/ 

i’ I s r 1 


'■ ^ s ^ 

4 4 w 4 


n j f' 

A I T N 

/SAVE 

3^37 

' ,V ' i 


L 

LAST! 


. ' ^ 'S 4 

4 4 ^ 4 ;* 


il 4 

A ! ^STl 

/LAST IS NOW FIRST 

. ‘3'^ 4 ^ 

'> '14344 


LAO 

A I T \ 


^•'^ G 6 4 ^ 

' 443 ,' 1 


HAC 

LAST! 

/FIRST IS NOW LAST 

■;^ 3 A 4 ^ 

> 1 4 5 3 1 

OKAS 

LAO 

LASTl 


^^3644 

■X 4 4 3 3 3 


sah 

EIRSTl 

/SEE IE ONLY 1 SELECTED 

3 3 6 4 A 

"^4 1 . ■ ' 3 0 


SK^ 


/YES, SEE IE IT HAS PR ,G 

3 3 6 4^ 

*' 0 5 6 


,J 

ALOK 


3 3 A 4 7 

5 4 4 ? 7 1 


S A!1 

f NSELD 

/REJECT IE equal. 

/'3A5>* 

741 /I 0 0 


S K P 


/TELL where it IS 

3 A 5 1 

^•''76^6 


JO:^ 

ALOK 


M 3 6 5 ? 

O 41 4 4 i' 7 


LAC 

K 700K 


336^3 

’47370 


OAO 

LOCAT+4 


03A54 

1 ^7314 


JMS 

locat 


336^A 

'■ 0 7 A A 6 


JMP 

SLMTS+1 

/restart 

(■'* 3 6 ^ A 

1 3? 772 

ALOK 

JMS 

KEVIN 

/WAIT FOR A C.R. 

3 3657 

544360 


SAP 

K215 


3 36 6 3 

^23555 


JMPtt 

SLMTS 

/EXIT 

33661 

A ? 3 1 2 

/ 

/SETUP 

/ 

setac 

JMP 

QUERY 

/PRINT query and restart 



ACS. PRESS 

CARRIAGE RETURN 

TO EXIT 

3366? 

000000 

0 



33663 

1 03737 


JMS 

CRLF 

/CR.LF 

33664 

? 0 4 0 A 6 


LAC 

setx 

/POINTER 

33665 

l ■ 44305 


DAC 

PRNT 


3 36 6 6 

1 03701 


JMS 

PNXT 

/PRINT "SETUP ACS" 

03667 

700312 


KRP 



03673 

700301 


KSE 



33671 

603670 


JMP 

.-1 


0367? 

700312 


KRR 



03673 

^44374 


SAD 

K377 

/CHECK FOR A RO 

03674 

A03A56 


JMP 

SLMTS+1 

/START over 

03675 

750004 


LAS 



03676 

044272 


PAG 

MCWA 


03677 

103737 


JMS 

CRLF 

/CR,LF 

03700 

623662 

/ 

JMP* 

setac 

/EXHT 


• EJECT 



P'A G E 6 :< 




/ 




/PRINT A 

/ 

PNXT 

STR I NG 

IND EXIT. 

■/ 7 1 

' .1 

0 


/ 3 7 / ? 

7 77775 


L A 

-3 

/ 3 7 / :< 

4 4 3 4 1 


OAC 

WRCNT 

/ 3 7 0 ^ 

444 505 


IS/ 

PRNT 

/ 3 7 0 H 

7?d 305 


LAC<» 

PRNT 

03706 

741200 


SNA 


0 3 7 0 7 

623701 


JMP* 

PNXT 

0 3 71 f- 

■ 4 3 7 3 7 

HSK 

OAC 

crlf 

03711 

0 4 3 5 4 


AND 

K77 

0371? 

=44354 


SAP 

K77 

03713 

=03724 


JMP 

CK3 

0 3 714 

044342 


OAC 

RPETE 

03715 

777740 


LAW 

-40 

03716 

344342 


Tad 

RPETE 

03717 

740100 


SMA 


03720 

603734 


JMP 

CRLF-3 

03721 

743715 


XOR 

. -4 

03722 

344371 


Tad 

K 300 

03723 

101571 


JMS 

PCHAR 

03724 

444341 

CK3 

IS? 

WRCNT 

03725 

741000 


SKP 


03726 

603702 


JMP 

PNXT + 1 

03727 

203737 


LAC 

CRLF 

03730 

742020 


RTR; 

RTR; 

03731 

742020 




03732 

742020 




03733 

603710 


JMP 

MSK 

03734 

204342 


lac 

rpeTe 

03735 

344356 


tad 

K200 

03736 

603723 

i 

JMP 

CK3-1 



/ 

/carriage 

return 

. LINE FEED 


03737 

000000 

/ 

CRLF 

0 


03740 

760215 


LAW 

215 

03741 

101571 


JMS 

PCHAR 

03742 

543744 


SAD 

.♦2 

03743 

623737 


JMP* 

CRLF 

03744 

760212 


LAW 

212 

03745 

603741 

/ 

JMP 

CRLF+2 



.EJECT 



/character counter 
/WORD POINTER+1 

/ALL DONE OF 0 
/EXIT 

/SAVE WORD 

/MASK 6 BIT character 
/CHECK IF RUBOUT 

/SAVE CHAR 


/NEC. = ALPHA 
/NUMERIC 

/MAKE ALPHA 
/PRINT ACS 10-17 
/CHECK FOR 3 CHARACTERS 

/get next 3 characters 

/POSITION NEXT 


/PRINT IT 
/MAKE numeric 


/ASCII CR 


/EXIT 

/LF 



P A f' E ^ 'I 


V A T' 1 ^ 


7 4 6 
•■1 3 7 4 7 
'4375 1' i 
3 7 5 1 
'7375? 
73753 
0 3 7 5 4 

73755 

73755 
73757 
7 37 6 0 
73761 
0376? 
03763 

0 3 7 6 4 

03765 

03766 

03767 

03770 

03771 
0377? 

03773 

03774 


03775 

03776 

03777 

04000 

04001 



/ X A D 1 5 
/ 

/PF A'lE^ 

■' ' f 




PC " I \ F 



: ' ■;) 0 ./I 0 0 

104737 

/ 

PMOR 

j • s 

CRLF 

/CR, LE 

?04 057 


V A r 

TSTX 

/POINTER FOR "TEST" 

044305 


II A 1.' 

PRNT 


10 3 7 01 


JP? 

PNXT 

/PRINT test 

103775 


J 5 

CLMN 

/SPACE 5 

? 0 4 0 6 0 


LAP 

AORXA 

/"OCTAL ADR.” 

044305 


PA'" 

PRNT 


103701 


JPS 

PNXT 


103775 


jmS 

CLMN 

/SPACE 5 

704061 


LAP 

gdatx 

/"GOOD" 

044305 


P AC 

PRNT 


1 03701 


J'iS 

PNXT 


103775 


J.4? 

CLMN 

/SPACE 5 

?04062 


1, A C 

0OATX 

/"PAD" 

044305 


PAP 

PRNT 


103701 


JMR 

PNXT 


103775 


JHS 

CLMN 

/SPACE 5 

204063 


LAC 

BWPA 

/"FIELD WITH pat." 

044305 


PAC 

PRNT 


103701 


JMS 

PNXT 


103737 


JMS 

CRLF 

/CR, LF 

623746 

/ 

JMP» 

PHDR 

/DONE 

000000 

/ 

CLMN 

0 



777773 


LAW 

-5 


043737 


DAC 

CRLF 


101615 


JMS 

SPING 

/SPACE 

623775 


JMP* 

CLMN 




.EJECT 




) 



PAGE 6 - 



I' T 7 6 7 3 

v' 

0:'516 

4 G , ■ ^ 

.■00 73 7 

i ‘ 4 . 

:-'01 105 

G 4 /I f 

04 263 

4 J 7 

. '04252 

7 4 1 i' 

.•'0 203 7 

r- 4 1 1 

? 0 2 0 3 7 

7 4 G 1 ? 

704412 

. 4 G 1 3 

000000 

1-4014 

005011 

0 4 01'=^ 

■704114 

0 4 016 

r* 0 4121 

04017 

001660 

0 4 0 2 

:'0?0?7 

0 4 0 21 

•' ■02044 

04022 

■02163 

04023 

002114 

04024 

002233 

04025 

004127 

04026 

7 0 4 1 4 

0 4 0 2 7 

004135 

^4030 

■02521 

0 4 0 31 

■ 0 2 5 3 4 

0403? 

•02557 

0 4 0 3 3 

■’02567 

0 4 0 3 4 

"02614 

0 4 0 3“^ 

007620 

04036 

7/2630 

0 4 0 37 

002650 

0 4 0 4 0 

702656 

04041 

002664 

04042 

002672 

04043 

004326 

04044 

004336 

04045 

004176 

04046 

004243 

04047 

004206 

04 0 5 0 

004220 

04051 

004143 

04052 

004164 

04053 

004227 

4 0 5 4 

003556 

0 4 0 55 

003625 

0 4 0 5 6 

004235 

0 4 0 5 7 

004065 

4 0 6 

•■704071 


/ 


/return 

AD" SSE 

[)LMT 

75?o^3 

K R T K' 2 

fi T \ 2 

KRTN3 

RT\3 

KRTN4 

RTN4 

LAL 

ALL 

PTO 

PTP 1 

rota 

RQTC 

ROTB 

ROTC 

STRL 

KENO-t-2 

SUPTBL 

0 

fstbl 

KENO+401 

TSNX 

TSN 

SUPSX 

SUPS 

INSUP 

SUP I-i 

SUPDN 

DNSUP 

N8LK 

BLKi 

tblk 

BLK? 

D0NE2 

DBLKl 

D0NE3 

OBLK? 

BLKSX 

BLKS 

OVRLP 

OVLAP 

RLKTX 

BLKT 

00NE5 

BLKB? 

D0NE6 

BLKE2 

00NE7 

BLKB3 

00NE8 

BLK03 

D0NE9 

BLK84 

DON10 

BLKC4 

OONll 

BLK04 

DON12 

BLKG4 

D0N13 

BLKH4 

D0N14 

BLKJ4 

D0N15 

BLKL4 

ERTBL 

ERWRD+1 

ENERR 

ERWRn+11 

PTWLV 

PUTl? 

GOFL 

GOFLD 

RELOC 

PROP 

nern 

NOMO 

PISIN 

PROIS 

ersel 

SLTER 

TLMX 

TSLM 

SLMX 

SLMTS+1 

D0N3 

CRFVR 

SETX 

STAGS 

TSTX 

TST 

adrxa 

ADR 

.EJECT 


^ CTS 
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.''76 

74 1P2 
/ 7 . 1 7 5 

^ 6 - 6 ? 4 


G I ) A T X 
t- ' 0 ATX 

A 

HLMT A 


GDi T 
PDA T 
BwP A 
75 ? 6^4 
.EJECT 



Page 67 


/ 

/COMSTAMTS r-W PPIMT ROUTINE TEXTS. PACKED 
/3 ChARATTF per word . 

/ 

/"TEST" 

4 f", 6 ^ ' V'! -4 ^ S T S T 

C4C66 >’3 “6?4 ?30b?4; 7777R4; 0 

/4C67 ■7 777P4 

C 4 G 7 ' 

/ 

! •’ (7 4 0 7 A 0 R 

740317 740317: 401401: 220401: 0 

401 401 
220401 
000000 

/ 

04^*, 74 ■04076 GOAT 

04077 171707 171707; 777704: 0 

04100 777704 

0 4101 v' 0 0 /. 0 0 

/ 

04102 '^04102 BOAT 

04103 0 4'’102 

04104 '00000 

/ 

c 04 105 BWPAT 

r 5 1 1 06 
400414 
741127 
2 0 4 010 

'=^62401 562401 ; 0 

■ 0 0 0 0 0 

/ 

/TEST # - 
/ 

04114 004114 TSN 

04115 230524 230524: 434024: 405540: 0 

04116 434024 

04117 40S540 

04120 000000 

/ 

/SUPPRESS - 
/ 

004121 SUPS 

202523 202523: 052220: 402323? 774055 

052220 
402323 
774055 

'700000 0 

/ 

/BLOCK #1 - 
/ 

04127 ,'04127 RLKS 

04130 171402 

0 4 1 ~ 1 4 0130 3 


0 4121 

04122 

04123 
041 24 
04 1 25 
04126 


0 410 5 
04106 
0 410 7 
0 4110 
0 4111 
0411 ? 
0 4113 


040102: 0 

051106: 400414: 241127: 204010 


0 4 0 71 

'/'■ 4 7 / 

7 ' 4 (/ 7 ~ 

04074 

04075 


171402 ; 401303 ; 406143 ; 774055 



PAGE 6 


> A f' 1 


74^3? 

A ;» A 1 4 3 


7 4 1 3 ^ 

■’ 7 4 S 5 


^ 413- 

' '■ . ? 0 

/ 

/BLOCK 

/ 

04^3“^ 

7 0 4 1 3 5 

RLKT 

0 4 1 3 T 

1 71402 


04137 

401303 


0 414 0 

406243 


04141 

774 055 


041 4? 

000000 

/ 


#? - 

1714^21 40i3C^3; 4062435 774055 

0 

. EJECT 





x A r ' 1 ^ 


,'4 1 4 X " ^4 143 

'■'414-. \ 1712~6 

t 4 1 4 . i 2 ;•" 7 

1-414 1^. 114 ^115 

0 414 7 1 1 4 .1 2 3 

04151^ '"64 016 

041‘5l 14 0 511 

0 415 ;^ 774004 

04153 000000 


04154 004154 

0415^ 402311 

'M156 041127 

04157 161110 

0 416 0 ? 2 0 4 0 

04161 220717 

04162 771501 

04163 000000 


04164 004164 

0 4 1 6 5 2 2 2 2 0 5 

04166 409217 

04167 401611 

04170 140523 

04171 240305 

04172 '400405 

04173 051106 

04174 770414 

04175 000000 


04176 004176 

04177 242520 

04200 030140 

04201 614023 

04202 174062 

04203 014016 

04204 776040 

04205 000000 


04206 004206 

04207 172220 

04212 012907 

04211 ??A015 

!0 4 2 1 2 1714 0 5 

0 4 213 2 4 2 1 0 3 


/program is in field 
/ 

PROIS 

172220; 012207; 11^015; 114023 


064016; 140511; 774004; 0 


/ 

/IS WITH IN PROGRAM 
/ 

OVLAP 

402311; 241127; 161110; 222040 


220717; 771501; 0 


/ 

/ERROR IN SELECTED FIELD 
/ 

SLTER 

222205; 402217; 401611; 140523 


240305; 400405; 051106; 770414 


0 

/ 

/PUT ACS 12 ON A 0 
/ 

PUT12 

242520; 030140; 614023; 174062 


014016; 776040; 0 


/ 

/PROGRAM RELOCATION ERROR 
/ 

PROR 

172220; 012207; 224015; 171405 


240103; 161711; 220540; 221722 
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vat, IS 


/ 4 1 4 

^‘^1711 





(4 4 P 1 

? p ' ' S 4 t'? 





/ 4 ? 1 ^ 

-'P- 722 





4^17 

■’2 ^V'0 0 

/ 

/MO M 

/ 

MO^O 

ORE ERR^'RS 



f/ 4 p p (7! 

004220 




I'.’ 4 ? ? 1 

401716 


401716; 

221715; 054005; 

172222 

^)4222 

721 715 





4 2 2 3 

054005 





(4422-1 

172222 





0 4 225 

772322 


7 7 P 3 2 2 ; 

p 


0 4 2 2 6 

S; 0 0 0 0 0 

/ 

/TEST 

/ 

TSLM 

LIMITS 



04227 

004227 




04230 

230524 


230524 ; 

144024; iii5ii; 

772324 

04231 

144024 





04232 

111511 





04233 

772324 





04234 

000000 


0 






.EJECT 
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X A i 




/ 

/St " /c 

/ 

? T i C - 

A 'S 



■ * 4 ^ 

’,'4235 




i'* 4 > 3 '- 

2 4 -'523 


2 4 0-723; 

402025; 

030140; 777723 

0 4 7 3 7 

4 9 -I 2 5 





04240 

730140 





7 4 7 41 

777723 





c\ 

0 2 .■ ,1 0 0 

/ 

/GC TO 
/ 

GOELO 

0 





F lELO 



X A ^ 4 . 

/04 243 




1/ 4 2 4 4 

401 707 


4017', 7; 

401724; 

051106; 400414 

0 4 2 4 5 

401724 





0 4 2 4 A 

051106 





0 4 2 4 7 

400414 





0 4 2 50 

774055 


774 1S5 



04251 

000000 

/ 

/PRINT 

0 





OUTS INHIRITED 




/ 




04252 

004252 

PTCI 




04253 

1 12220 


112220; 

402416 ; 

242517; 114023 

04254 

402416 





04255 

242517 





04256 

114023 





0 4 2 5 7 

111016 


111016; 

241102; 

770405; 0 

04260 

241102 





04261 

770405 





0426? 

'300000 

/ 

/ALL 

/ 

ALL 




04263 

704263 

, 



04264 

141401 


141401 ; 

0 


04265 

000000 

/ 

.EJECT 





I 
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/storage ak'D cn>j 

'TANT REGISTERS 

4-i ^ 

’77770 

/ 

S IX T 4 

L A w - 1 '0 

/COUNTS 64 PASSES BETWEEN 





/error PRINT SUPPRESSION 

,*4 > 0 

,■0 0 100 

NiOPRNT 

0 

/INDICATES end OF ERROR PRINT-OUTS 

.' 4 'j 7 t' 

, ’ i7 0 0 0 0 

FLAGS 

0 

/SAVES SUBROUTINE FLAGS 

c- 4 7 1 

0 0 0 v1 0 0 

insfld 

0 

/CURRENT FIELD WITH PROGRAM 

4 9 7 7 

000000 

MCWA 

0 

/SAVES ACS SETTINGS. 

C 4 9 7 7 

</j 0 0 

cntrl 

0 

/pattern GENERATOR 

C 4 9 7 -i 

000000 

PAIR 

0 

/SAVES GOOD data 





/AND UPR USED TO OFFSET PATTERNS 

C 4 ? 7 

0 0 '.1 0 0 

memadr 

0 

/address counter 

(74?7r 

•' 0 0 0 0 0 

svadr 

0 

/FIELD counter 

J 4 ? 7 7 

0 0 0 0 0 0 

CT4K 

0 

/4K counter 

C 4 3 v) C 

0 0 0 0 0 

FlRSTi 

0 

/FIRST FIELD TO TEST 

(/•4301 

000000 

LASTi 

0 

/LAST FIELD TO TEST 

7.4314? 

000000 

BAOl 

0 

/SAVES BAD data 

0 4 37 3 

000000 

OCADR 

0 

/SAVES failing OCTaL A DRESS 

0430^ 

/00'000 

GOODl 

0 

/GOOD data 

0 4 3 7 

000000 

PRNT 

0 

/POINTER FOR PRINT ROUTINES 

0 4 37 6 

000000 

AORCW 

0 

/Partial address word 

04307 

000000 

EXIT 

0 

/TO dismiss 

04310 

000000 

OVER 

0 

/pointer TO START OF SUBROUTINES 

04 311 

000000 

NROJA 

0 

/rotate counter 

0431? 

,^00000 

NXLOC 

0 

/NEXT FIELD TO MOVE INTO 

04313 

C-00000 

SOURCE 

0 

/FIELD TO MOVE FROM 

04314 

000000 

DESTN 

0 

/FIELD TO MOVE TO 

0431'^ 

C00000 

MOVED 

0 

/ADDRESS counter FOR MOVING 

04 316 

000000 

MOVES 

0 

/SAVE AS MOVED 

04317 

000221 

bgnlo 

RTNl 

/EXIT aDR. TO A LO 4K FIELD 

04320 

760000 

BLoCl 

LAW 

/SAVES 1ST ADR. FoR BLqCK 1 

04321 

760000 

BL0C2 

LAW 

/LAST ADR. FOR BLOCKl 

0432? 

760000 

BL0C3 

LAW 

/SAVES 1ST ADR. FOR BLOCK2 

0,4323 

760000 

BL0C4 

LAW 

/LAST ADR. FOR BLOCK? 

04324 

000000 

maxerr 

0 

/COUNTS 64 ERROR PRINT-OUT 

04325 

004326 

erwrd 

. +1 

/SAVES UP TO 8 FIELDS IN ERROR 

04326 

760000 


Law 


04327 

760000 


LAW 


04330 

760000 


LAW 


04331 

760000 


law 


04332 

760000 


LAW 


04333 

760000 


LAW 


04334 

760000 


LAW 


04335 

7 60000 


LAW 


04336 

760000 

LAST 

LAW 

/SAVES LAST FIELD IN ERROR 

04337 

000000 

lstsup 

0 

/LAST ADR. TO BE SUPPRESSED 

04340 

000000 

patbnk 

0 

/CURRENT FIELD WITH PATTERN 

04341 

000000 

WRCNT 

0 

/UTILITY COUNTER 

04342 

000000 

RPETE 

0 

/UTILITY COUNTER 

04343 

000000 

LOOPT 

0 

/UTILITY COUNTER 

0 4 34 4 

000000 

bitn 

0 

/UTILITY storage 

04345 

000000 

tnum 

0 

/TEST NUMBER 


/ 


.EJECT 



FACE 73 


X A T' 




[' 4 ^ A ^ 

’ ■ ' ‘ A 

/ 

r' i 

1 

'3347 

'..'0,102 

H 2 

2 

, 4 3 ‘^7 

■ "I.. 0 7 

K7 

7 

■' 4 3 1 

■' '7^ 0 1 0 

K 10 

1 0 

34 3 5 / 

-1 f.1 7 0 0 

K20 

20 

3 4 3 5 3 

0 0 0 0 4 0 

K40 

4 0 

?'4354 

i’ 0 0 0 7 7 

K77 

77 

3435^^ 

000100 

K100 

100 

0 4^ 5 ' 

000200 

K200 

200 

0 4 3 ^-' 

000212 

K212 

212 

0 4 ,3 5 

000215 

K215 

215 

0 4 3 61 

C'00254 

K254 

254 

04362 

000260 

K260 

260 

04363 

000261 

K261 

261 

0 4 3 6 4 

000262 

K262 

262 

04365 

000263 

K263 

263 

04366 

000264 

K264 

264 

04367 

000270 

K270 

270 

04370 

000272 

K272 

272 

04371 

000300 

K300 

300 

04372 

000331 

K331 

331 

04373 

000370 

K370 

370 

04374 

000377 

K377 

377 

04375 

000400 

K400 

400 

04376 

0 .0 4 0 0 0 

K4K 

4000 

0 4 3 7 7 

007777 

K7777 

7777 

04400 

010000 

K10K 

10000 

04401 

020000 

K20K 

20000 

04402 

040000 

K40K 

40000 

04403 

070000 

K70K 

70000 

04404 

074000 

K74K 

74000 

04405 

400000 

K400K 

400000 

04406 

177777 

K177 

177777 

04407 

700000 

K700K 

7 0 0 0 Cl 0 

04410 

004411 

000000 

kend 

. ■*■1 
.End 

NO Error lines 



X A f . 1 5 
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A D ^ 

U) 4 0 7 1 

4DPC»^ 

/ 4 3 p 6 

A D 4 X A 

0 4 0 A 0 

A J I N 

3 3 ^ 

ALL 

0 4 2 6 3 

ALLl 

00543 

ALOK 

03656 

8AD1 

04302 

BAKl 

00424 

BAK2 

0061 2 

BAK2A 

00645 

8AK4 

01170 

boat 

04102 

bdatx 

04062 

begin 

00200 

BGNLO 

04317 

bitn 

04344 

blkai 

02440 

8LKA2 

02511 

BLKA3 

02547 

8LKA4 

02610 

BLK81 

02454 

BLKB2 

02521 

BLKB3 

02557 

BLKB4 

02614 

BLKCl 

02471 

BLKC2 

02523 

BLKC3 

02561 

BLKC4 

02620 

BLKD2 

02525 

BLKD3 

02567 

BLKD4 

02630 

BLKE2 

02534 

BLKE4 

02640 

8LKF4 

02642 

BLKG4 

02650 

BLKH4 

02656 

BLKJ4 

02664 

BLKL4 

02672 

BLKNl 

02055 

BLKN2 

02170 

BLKS 

04127 

BLKSX 

04025 

BLKT 

04135 

BLKTX 

04027 

BLKl 

02044 

BLKIA 

02064 

BLKIB 

02102 

BLK2 

02163 

BLK2A 

02177 

BLK2B 

02215 

BLOCl 

04320 

BL0C2 

04321 

MC3 

04322 

■ C4 

04323 



y A i 1 


■TGE 7 5 

R W P A •/. 4 q ^ 

R W P A T 1 4 1 ■ 

CRANK 

C B N K /l l A 7 

CFLG ^C5 5(''3 

CKAQR 

CKBAK 71^742 

CKB2 

CKB3 014724 

CKB6 0106? 

CKCLN 01725 

CKFRR 03135 

CKFCD 03303 

CKNXT 03212 

CK18B 01007 

CK3 03724 

CLMN 03775 

CLOF 700004 

CLON 700044 

CLSF 700001 

CMAX 01527 

CMOVF 03111 

CNROT 03047 

CNTRL 04273 

CREVR 03625 

CRLF 03737 

CSUP 01551 

CT4K 04277 

DBLKl 02114 

DBLK2 02233 

DESTN 04314 

DIND 03376 

DLMT 04002 

OLMTA 04064 

DNMVE 03205 

DNSUP 02027 

DOALL 00321 

DOERR 01450 

D0NE2 04023 

00NE3 04024 

D0NE5 04030 

00NE6 04031 

D0NE7 04032 

D0NE8 04033 

D0NE9 04034 

DON10 04035 

DONll 04036 

nONl2 04037 

nON13 04040 

nONl4 04041 

nONl5 04042 

D0N3 04055 

FNERR 04044 

FNOT 03465 

r " -1 7 0 7 7 6 2 



p A r, r 7 6 

F Q U A L 
FRRnR 
FRSFL 

frtrl 

FRwRI) 

ESTBL 

FXAM2 

FXAM3 

FX AM4 

EXIT 

FCDMV 

FIRSTl 

FLAGS 

FWD2 

FWD3 

FWD4 

GOAT 

GDATX 

GENADR 

GOFL 

GOFLO 

GOLEFT 

GOODl 

GOTO 

HALT 

INDY 

INSFLD 

INSUP 

JMPl 

KEND 

KEY I N 

KRB 

KRTN2 

KRTN3 

KRTN4 

KSF 

KYBRD 

K1 

K10 

K10K 

K100 

K177 

K2 

K20 

K20K 

K200 

K212 

K215 

K254 

K260 

K261 

K262 

K263 



X A n 1 6 

M 3 1 6 ? 

1-1 13 7 7 
040 ^ 5 ? 

0 4 0 4 3 
0 4 3 2 5 
04014 
00273 
00277 
00303 
04307 
03273 
04300 

04270 
00567 
00767 
01142 
04076 
04061 
03043 
04046 
04243 
03066 
04304 
03426 
01364 
01507 

04271 
04017 
03531 
04410 
02272 

700312 

04003 

04004 

04005 
700301 

01623 

04346 

04351 

04400 
04355 
04406 

04347 

04352 

04401 
04 356 
04357 

04360 

04361 

04362 

04363 

04364 

04365 

04366 

04367 



■Tg E 7 7 X /i f 


X?72 

7 4 3 7^ 


7 4 3 7 1 

K331 

0 4 3 ;■ 2 

K 3 7 (X 

0 4373 

K377 

04374 

K4K 

0 4 3 7 6 

K4P! 

04353 

K4?K 

0447? 

K400 

04375 

K400K 

04405 

K7 

04357 

K70K 

0 4 4 0 3 

K700K 

04407 

K74K 

0 4 4 0 4 

K77 

04354 

K7777 

04377 

LAL 

04006 

last 

04336 

LASTI 

04301 

legal 

02301 

LOCAT 

02314 

locer 

0 35 4 0 

LOOPT 

04343 

LOOPl 

00415 

L0P2 

00456 

LOP3 

00705 

LOP4 

01043 

L0P4A 

01225 

LSTSUP 

04337 

maxerr 

04324 

MCWA 

04272 

ME^AOR 

04275 

MOSOM 

03334 

MOVE 

03325 

moved 

04315 

MOVES 

04316 

MSK 

03710 

MV0K 

03264 

MVERR 

03510 

N8LK 

04021 

NERN 

04050 

NOMO 

04220 

nomor 

01 305 

NONE 

02754 

noprnt 

04267 

NOSW 

03444 

NROTA 

04311 

NXBAK 

02765 

NXLOC 

0 4 312 

NXPT2 

0 0 6 6 4 

NXPT3 

010 21 

NXSUP 

016 7 5 

NXTB'MK 

H1344 

NXTH I 

0 X L 

nxtmv 

7 3 217 



X APIS 
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N X T p 4 

0 12 6 2 

OC AO^ 

H 4 3 {.) 3 

3 •< A S 

0 3 6 4 3 

:'VEP 

0 4 3 1 (,1 

Q V L A p 

0 4 5 4 

qvplp 

04026 

patbnk 

04340 

PATR 

04274 

PCF 

700202 

PChaR 

01571 

PHOR 

03746 

PISIN 

04051 

PNXT 

03701 

POSN 

01602 

PRNT 

04305 

proctl 

01576 

PROG 

02151 

PROIS 

04143 

PROR 

04206 

PRSEL 

03404 

PSA 

700204 

PSP 

700244 

PSF 

700201 

PTO 

04007 

PTOI 

04252 

PTWLV 

04045 

PUT12 

04176 

QUERY 

02312 

RBAKl 

00420 

RBAK2 

00605 

RBAK4 

01160 

RBLK4 

01133 

RCF 

700102 

READl 

00360 


RELOC 

REST2 

REST4 

REST4A 

REVRl 

REVR2 

RFWD2 

RFWD3 

RFW04 

RITE 

RLOPl 

ROTA 

ROTB 

ROTC 

RPETE 

RRB 

RSA 

RSB 

RSF 


04047 

00537 

01102 

01107 

02426 

02421 

00562 

00757 

01126 

03102 

00367 

04010 

04011 
02037 
04342 

700112 

700104 

700144 

700101 

00511 

00520 




X A' 

RS 13 

My/ M 

RST3A 

y.y '-M 

R T '\ 1 

/ ’ , ' R 1 

RT\2 

!/ ’.■ i- ' S 1 6 

RT\3 

'-5 7 7 7 

RT\4 

H 1 1 p S 

RT19L 

(^341 3 

SETAC 

^33662 

setbak 

J2722 

setbi 

3 2 7 7 ^ 

SETB2 

033 3 6 

SETSUP 

02015 

SETUl 

02346 

SETU2 

02377 

SETX 

'04056 

SETl 

0 2 7 3 3 

S I MUl 

0 2 4 3 5 

S I MU2 

0 25 0 6 

S IMU3 

02544 

S I^^U4 

02604 

SINGL 

0 2 3 6 0 

SIXT4 

•04266 

SLMTS 

03555 

SLMX 

04054 

slter 

04164 

SOURCE 

0 4 313 

SPEXT 

01567 

SP ING 

01615 

stags 

04235 

ST8L 

0401 2 

STBl 

0301 7 

STB2 

03031 
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